Makro İle Otomatik Say verme

[ormann]

Ekteki örnek dosyada sayfa1 de bulunan butonu tıkladığımda sayfa2 deki sıradaki kayıt numarasını sayfa birde b3 hücresine verebilirmiyiz.ve b6:b28 hcrelerindeki verileri silebilirmiyiz

 

[Necdet]

Merhaba,

Aşağıdaki kodları dener misiniz?

Sub nover()
    Dim i As Long
    'Sayfa2 nin son boş hücresin satır numarası
    i = Sheets("Sayfa2").Cells(Rows.Count, "A").End(3).Row + 1
    'sayfa2 nin son boş hocresine satır numarasından 1 çıkarttık
    Sheets("Sayfa2").Cells(i, "A") = i - 1
    'sayfa1 in B3 hücresine son sıra numarasını yazdırdık
    Sheets("Sayfa1").Range("B3") = i - 1
    
End Sub

 

[ormann]

Merhaba,

Aşağıdaki kodları dener misiniz?

Sub nover()
    Dim i As Long
    'Sayfa2 nin son boş hücresin satır numarası
    i = Sheets("Sayfa2").Cells(Rows.Count, "A").End(3).Row + 1
    'sayfa2 nin son boş hocresine satır numarasından 1 çıkarttık
    Sheets("Sayfa2").Cells(i, "A") = i - 1
    'sayfa1 in B3 hücresine son sıra numarasını yazdırdık
    Sheets("Sayfa1").Range("B3") = i - 1
    
End Sub

Sayın Necdet Hocam ilgi ve alakanıza çok teşekkür ederim.Yalnız yeni kayıt dediğim zaman kayıt numarasını tekrar sayfa ikiye yazmayacak. Son sayı numaram 2327 ise b3 hücresine 2328 numarasını yazmalı.Ayrıca B6:B28 hücre aralığınıda silecek.Size zahmet olacak ama makroyu bu şekilde düzenleyebilirmisiniz

 

[Necdet]

Yeni Kayıt deyince insanın aklına yeni numara geliyor tabi

Sub nover()
Dim i As Long
'Sayfa2 nin son hücresin satır numarası
i = Sheets("Sayfa2").Cells(Rows.Count, "A").End(3).Row
'sayfa1 in B3 hücresine son sıra numarasını yazdırdık
Sheets("Sayfa1").Range("B3") = Sheets("Sayfa2").Range("A" & i) [B][COLOR=red]+ 1[/COLOR][/B]
Sheets("Sayfa1").Range("B6:B28").ClearContents
End Sub

 

[ormann]

Hocam Çok Teşekkür ederim.Bu aralar sizi çok rahatsız ettim hakkınızı helal edin.Hocam Son numara 56 ise yne 56 numarayı veriyo bir artırmak için ne yapmak gerekiyo

 

[Necdet]

Merhaba,

Numarayı arttırmayı atlamışım, 4. mesajda kodu düzelttim. Ordan alınız.

 

[ormann]

Hocam Çok Teşekkür ederim.Bu aralar sizi çok rahatsız ettim hakkınızı helal edin.Hocam Son numara 56 ise yine 56 numarayı veriyo bir artırmak için ne yapmak gerekiyo

 

[ormann]

Teşekkür ederim Sayın Hocam

 

[Necdet]

Son 2 gündür sizde baya çalıştınız, kutlarım sizi

 

[ormann]

Sayenizde birşeyler yapmaya çalışıyorum