Dolu Hücreleri seçtirme

[ataniyazi]

Arkadaşlar Herkese Merhabalar,

A dan G ye kadar olan Column larda Dolu hücreleri seçtirecek bir makroya ihtiyacım var teşekkürler.

 

[hamitcan]

Dolu olan hücreler sabit mi, formül mü ?

 

[veyselemre]

Range("A5:G65536").SpecialCells(xlCellTypeConstants).Select

 

[szaim]

İkinci bir seçenek.

Çalışma kitabınızın Code bölümüne bu kodları girin.

Kod:
Sub SelectActiveArea()
Range("A:A:G:G").SpecialCells(xlCellTypeConstants).Select
End Sub

 

[ataniyazi]

Çok Teşekkürler arkadaşlar işimi gördüm. Birşey daha sormak istiyorum izninizle. Bir belge var günlük çıktı aldığım. Belgeye 01.06.2006 / 1 , 01.06.2006 / 2 gibi gün içerisinde birden fazla alırsam bu şekilde numaralandırıp alıyorum. Belge numarasının sonundaki 1, 2 sayılarını A1 hücresinden alıyorum. İsteğim şu tarih değiştiğinde A1 hücresindeki değer tekrar 1 olması. Teşekkürler

 

[szaim]

Çalışma kitabınızın Modülene aşağıda ki kodu girin.

KOD:
Sub Autpen()
Range("A1").Value = 1
End Sub

 

[ataniyazi]

İlginize teşekkür ederim ancak dediğiniz kod dosya her açıldığında A1 hücresini 1 yapacak benim için kriter tarih değiştiğinde yani son kaydedilen tarih değişmişse (bir sonraki güne geçmişse örneğin) A1 hücresi 1 olmalı ben gün içerisinde çok kere dosyayı kapatıp açıp çıktı alıyorum. O nedenle kriter tarihin değişmesi olmalı. Teşekkür ederim.

 

[veyselemre]

a1 hücresine boş bir açıklama ekledikten sonra kodu deneyin.

[vb:1:2ace80f14c]Sub auto_open()
If Range("A1").Comment.Text <> Date Then
[A1] = 1
Range("A1").Comment.Text Str(Date)
End If
End Sub
[/vb:1:2ace80f14c]