Arakdaşlar A1 Hücresi 150 B1 Hücresi 2 yazıyor
Ben birleştir işlemi yapara C1 Hücresine şu şekilde yazılmasını istiyorum yrd olabirmisiniz
150-02
Birleştir Formülü
-
- Mesajlar: 2
- Kayıt: 24 Ara 2023, 17:48
- Lokasyon: Gümüşhane
- Meslek: Memur
- Adınız: Musa
- Soyadınız: AĞAÇ
-
- Mesajlar: 2
- Kayıt: 24 Ara 2023, 17:48
- Lokasyon: Gümüşhane
- Meslek: Memur
- Adınız: Musa
- Soyadınız: AĞAÇ
Re: Birleştir Formülü
B1 hücresi 1 basamak olsa da dair birleştir yapar iken B1 hücresini 02 görmesini istiyorum
-
- Mesajlar: 16
- Kayıt: 11 Eki 2023, 13:56
- Meslek: Memur
- Adınız: Ahmet
- Soyadınız: KARIŞMA
Re: Birleştir Formülü
Kod: Tümünü seç
Dim lastRow As Long
Dim i As Long
lastRow = Cells(Rows.Count, "A").End(xlUp).Row
Columns("B:B").NumberFormat = "00"
For i = 1 To lastRow
Cells(i, "C").Value = Cells(i, "A").Value & "-" & Format(Cells(i, "B").Value, "00")
Next i