Boş hücrelere Not eklemek..!

[sensizsoldum]

Merhaba,
J3:J65536 aralığında bulunan boş hücrelere bir buton yardımıyla TANIMSIZ yazmak istiyorum. Son limit 65536 değil tabi ki I3:I ve K3:K son veri hangi satırda ise oraya kadar yazmalı. Kısaca anlatmak gerekirse I3:I ve K3:K şuan son veri 9896 sırada bu rakam sürekli olarak değişkendir. Butonu tıkladığımızda J3:J9896 arasında veri olmayan boş hücrelere TANIMSIZ yazmak istiyorum. Umarım ne yapmak istediğimi anlatabildim.
İlgilenecek tüm arkadaşlara gönülden teşekkür ederim.
İyi çalışmalar dilerim.

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Sub Makro1()
    Dim Son As Long
    On Error Resume Next
    Son = Cells(Rows.Count, "I").End(3).Row
    Range("I3:I" & Son).SpecialCells(xlCellTypeBlanks) = "TANIMSIZ"
    Son = Cells(Rows.Count, "K").End(3).Row
    Range("K3:K" & Son).SpecialCells(xlCellTypeBlanks) = "TANIMSIZ"
End Sub

 

[sensizsoldum]

Merhaba Korhan Bey,
Sanırım yanlış anlaşılma söz konusu, Tanımsız notu J sütuna ugulanacaktır. yan hücreleri olan I ve K sütunlarda veri var ise J sütunda da boşluk varsa bu not uygulanmalı.
Örneğin I ve K sütunlarda 10250 hücreye kadar veri var, J sütunda bazı hücrelerde veri var boş olanda var, boş olan hücrelere tanımsız yazılsın istiyorum.

İlginiz için teşekkür ediyorum.

İyi çalışmalar dilerim.

 

[YUSUF44]

Şu kodlar olur mu?

Sub Makro2()
    Dim Son As Long
    On Error Resume Next
    Son = Cells(Rows.Count, "A").End(3).Row
    For i = 3 To Son
    If Cells(i, "I") <> "" And Cells(i, "j") = "" Then
    Cells(i, "j") = "TANIMSIZ"
    End If
    Next
    Son = Cells(Rows.Count, "K").End(3).Row
    For i = 3 To Son
    If Cells(i, "K") <> "" And Cells(i, "j") = "" Then
    Cells(i, "j") = "TANIMSIZ"
    End If
    Next
End Sub

 

[Korhan Ayhan]

Aşağıdaki gibi kullanabilirsiniz.

Sub Makro1()
    Dim Son As Long
    On Error Resume Next
    Son = Cells(Rows.Count, "I").End(3).Row
    Range("J3:J" & Son).SpecialCells(xlCellTypeBlanks) = "TANIMSIZ"
End Sub

 

[sensizsoldum]

Teşekkür ederim Yusuf Bey,
Elinize sağlık İYİ ÇALIŞMALAR DİLERİM.