Arkadaşlar aşağıdaki kodda ben B7 deki değerden itibaren saydırmak istiyorum
Range("B7").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
If Range("B7").Value = Empty Then
Range("B7").Value = 1
Range("B7").Select
Else
ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1
End If
say = WorksheetFunction.CountA(Sheets(ListBox1.Value).[B7:B65536]) + 1
YANİ B7değeri 11 ise 12 ,13,14,... diye devam etsin benn uğraştım ama olmadı
Yardımlarınız için şimdiden teşekkürler
Range("B7").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
If Range("B7").Value = Empty Then
Range("B7").Value = 1
Range("B7").Select
Else
ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1
End If
say = WorksheetFunction.CountA(Sheets(ListBox1.Value).[B7:B65536]) + 1
YANİ B7değeri 11 ise 12 ,13,14,... diye devam etsin benn uğraştım ama olmadı
Yardımlarınız için şimdiden teşekkürler