İlk boş ve biçimlendirilmemiş hücre

[sbayyigit]

arkadaşlar yapmak istediğim şey ilk asütünu içerisindeki ilk boş hüreyi seçmek. ama seçim yaparken boş olmasından kastım aynı zamanda hiçbir biçimlendirme de yapılmamış olan ilk hücreyi seçmek olacak. saygılarımla

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub SÜTUNDA_BİÇİMLENMEMİŞ_SON_HÜCRE()
    On Error GoTo Son
    Columns("A:A").SpecialCells(xlCellTypeLastCell).Offset(1, 0).Select: Exit Sub
Son: MsgBox "HÜCRE BULUNAMIŞTIR.", vbCritical
End Sub

 

[Seyit Tiken]

Bu şekilde bir deneyiniz.

Sub Makro1()
On Error Resume Next
If [a1] = "" Then Exit Sub
[a:a].End(xlDown).Offset(1).Select
End Sub

 

[acolkesen1]

Arkadaşlar, benim de daha önce böyle bir makroya ihtiyacım olmuştu ve yine Sn Seyit Tiken arkadaşımız kodları göndermişti sağolsun.Ancak o zaman da not olarak belirtmiştim, kodlar ilk hücre boş olursa çalışmıyor, ilk hücre(a1) dolu, a2 boş olursa, dolu olmasına rağmen a4 hücresini buluyor. Bilgilerinize..

 

[acolkesen1]

Sn COST_CONTROL ün gönderdiği kodlar ise makro adına uygun olarak son hücreyi buluyor..Aradaki boş hücreleri atlıyor yani. Oysa istenen ilk boş hücre..Eğer mümkünse ben de çok memnun olacağım.. Teşekkürler şimdiden.

 

[Seyit Tiken]

Bu şekilde deneyiniz.

Sub Düğme1_Tıklat()
On Error Resume Next
[a1:a100].End(xlDown).Offset(1).Select
If [a2] = "" Then [a1:a100].End(xlDown).Offset(2).Select
If [a2] = "" Then [a2].Select
End Sub

 

[Skorpiyon]

Sub Düğme1_Tıklat()

A sütunundaki ilk boş hücreyi bulur.

Range("A1").select
Do While Not Isempty(Activecell)
Activecell.offset(1,0).select
Loop
End Sub

 

[sbayyigit]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub SÜTUNDA_BİÇİMLENMEMİŞ_SON_HÜCRE()
    On Error GoTo Son
    Columns("A:A").SpecialCells(xlCellTypeLastCell).Offset(1, 0).Select: Exit Sub
Son: MsgBox "HÜCRE BULUNAMIŞTIR.", vbCritical
End Sub

teşekkürler usta tam istediğim gibi..