saydırma

[macros]

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

 

[mehmett]

Sn macros,

Sorularınızı Bilgi Bankası bölümlerinde değil Excel Soruları bölümlerinde sorun.

Mesajınız Excel İçin Örnek Uygulamalar ve Linkler bölümünden Makro bölümüne taşınmıştır.

 

[unur]

Kodlardan pek anlamam ama daha önce bende böyle bir şeyle uğraştığım için hafızamda kaldığı kadarıyla
Sizin kodlarınız ilgili bölümlerine yerleştirirsiniz artık
Basitçe: [b7] = [b7] + 1 benim işimi görmüştü