Excel Vba Forum - Excelce.Net
SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Çözülen Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: Hüseyin Çoban - 26 Ocak 2011, 21:13:14
-
Merhaba Arkadaşlar,
Numara ver butonunu tıkladığımda, C4 hücresinden itibaren B sütununda tutar olan hücrelerin sağındaki hücreye sıra no vermeli.
Ancak daha önceden benim elile verdiğim sıra noları atlamalı.
İşlemi içerisinde boşluk olan satırlara kadar yapmalı.
Böyle bir işlem için makro kodlarına ihtiyacım var. Yardım ve fikirlerinizi bekliyorum.
[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]
-
Aşağıdaki kodlar ile sorun çözülmüştür.
İyi çalışmalar.
Option Explicit
Sub SIRANO_VER()
Dim X As Long, No As Long
No = 1
For X = 4 To Range("B65536").End(3).Row
If Cells(X, "B") <> "" Then
If Asc(Cells(X, "B")) = 32 Then Exit For
If Cells(X, "C") = "" Then
Cells(X, "C") = No
No = No + 1
End If
End If
Next
MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub
Kodlar Sn Korhan Ayhan' a aittir.