- Katılım
- 16 Ocak 2010
- Mesajlar
- 81
- Excel Vers. ve Dili
- Excel 2007 Türkçe
- Altın Üyelik Bitiş Tarihi
- 01-01-2024
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub SicilNolarıAl()
Dim Sh As Worksheet
Set Sh = Worksheets("Sayfa1")
Son = Sh.Range("B" & Rows.Count).End(3).Row
Veri = Sh.Range("B1:C" & Son).Value
For i = 1 To Son
If Sh.Range("B" & i) <> "" And Sh.Range("C" & i) = "" Then
Sicil = Sh.Range("B" & i)
Do While Sh.Range("C" & i + 1) <> ""
Sh.Range("A" & i + 1) = Sicil
i = i + 1
Loop
End If
Next i
End Sub
=EĞER(ESAYIYSA(B1*1);B1&"";EĞERHATA(DOLAYLI("A"&SATIR()-1);""))