0 yazılan hücreleri atlamak

[Turgaysendinc]

Arkadaşlar merhaba

Benim yapmak istediğim A sutununda aşağı doğru sıralı olan isimlerin arasında 0 değeri olan hücereleri eleyerek G sutununa kopyalatmak
örnek dosyadan daha iyi anlayacağınızı umuyorum.

Teşekkürler

 

[Ali]

Örnek dosya ektedir.

 

[Turgaysendinc]

Ali Bey

Çok teşekkür ederim. Eline sağlık

 

[N.Ziya Hiçdurmaz]

Yanıt

Buda makrolu çözüm.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim SUT, S As Integer
If Intersect(Target, [A1:A65536]) Is Nothing Then Exit Sub
[G1:G1000].ClearContents
For SUT = 1 To Cells(65536, "A").End(3).Row
If Cells(SUT, "A") <> 0 Then
S = S + 1
Cells(S, "G") = Cells(SUT, "A").Value
End If
Next
End Sub

 

[AFFANN]

tebrikler güzel bir çalışma

 

[gokhanozp]

Güzel bir çalışma. Tebrikler.
Bu tabloda sadece rakamsal değer var ise görünsün. İsimler ve 0 lar elensin. Bu nasıl oabilir? Şimdiden teşekkürler.

 

[Ali]

Güzel bir çalışma. Tebrikler.
Bu tabloda sadece rakamsal değer var ise görünsün. İsimler ve 0 lar elensin. Bu nasıl oabilir? Şimdiden teşekkürler.

Eklediğim dosya için konuşursak

B1 hücresine
=EĞER(VE(ESAYIYSA(A1);A1>0);A1;"")
yazıp aşağı doğru çekiniz.

Bu sefer sayı ve sıfırdan büyükler boşluksuz olarak listelenir.

 

[N.Ziya Hiçdurmaz]

Yanıt

Sadece 0 olmayan ve rakamsal değerleri aktar.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim SUT, S As Integer
If Intersect(Target, [A1:A65536]) Is Nothing Then Exit Sub
[G1:G1000].ClearContents
For SUT = 1 To Cells(65536, "A").End(3).Row
[COLOR="Blue"]If Cells(SUT, "A") <> 0 And IsNumeric(Cells(SUT, "A")) Then[/COLOR]
S = S + 1
Cells(S, "G") = Cells(SUT, "A").Value
End If
Next
End Sub

 

[gokhanozp]

Sizleri takdir etmekden başka söylenecek söz yok. Teşekkürler.

 

[N.Ziya Hiçdurmaz]

Bizde teşekkür ederiz.