Hücre Değeri 0 olanları sayfa2'ye aktarsın

[kemalkazan]

Sayın Hocalarım,
Ekli dosyada bulunan değerlerden hücre değeri sıfır olanları Adı Soyadı ve diğer bilgileri ile birlikte (yani sıfır olan satırın tamamını) sayfa2'ye makro ile aktarmak istedim.
Lütfen yardımlarınızı esirgemeyiniz.

 

[N.Ziya Hiçdurmaz]

Yanıt

Sub AKTAR()
Dim S1, S2 As Worksheet
Dim SUT, S As Integer
Set S1 = Sheets("Sayfa1")
Set S2 = Sheets("Sayfa2")
S2.[A2:H500].Clear
S = 2
For SUT = 2 To S1.Cells(65536, "A").End(3).Row
If Left(S1.Cells(SUT, "F"), 1) = "0" Or Left(S1.Cells(SUT, "G"), 1) = "0" Or Left(S1.Cells(SUT, "H"), 1) = "0" Then
S1.Cells(SUT, "A").EntireRow.Copy
S2.Cells(S, "A").PasteSpecial Paste:=xlValues
S = S + 1
End If
Next
Application.CutCopyMode = False
End Sub

 

[kemalkazan]

teşekkür ederim

Emeğiniz için teşekkür ederim.Yalnız ben soruyu biraz yanlış sormuşum ama sizin verdiğiniz kodlarda düzenleme yaparak sorunumu çözdüm.Ellerinize sağlık
Saygılarımla

 

[N.Ziya Hiçdurmaz]

Bişey değil Sayın kemalkazan

 

[1Al2Ver]

Emeğiniz için teşekkür ederim.Yalnız ben soruyu biraz yanlış sormuşum ama sizin verdiğiniz kodlarda düzenleme yaparak sorunumu çözdüm.Ellerinize sağlık
Saygılarımla

Sayın kemalkazan, çözümlü dosyayı yada kodları eklerseniz bizlerde faydalanırız ve size teşekkür ederiz, ne dersiniz ?

Saygılar.

 

[karagöz55]

N.ZİYA HİÇDURMAZ,
Çok süper bir formül.
Emeğinize, bilginize, bilgisayarınıza sağlık ve uzun ömürler