Kod ile satır silme yardım lütfen

[drlacter]

:yardim:

Arkadaşlar herkese iyi akşamlar

Ek'li dosyada yapmak ıstedıgım şu..E ve F sütunlarında her iki değeride sıfır olanları silmek..sadece tek sutunda sıfır degeri olanları silebiliyorum fakat iki sutununda degeri sıfır oldugunda takıldım..

Birde e sutununda degeri olanları copy sheetıne taşımak ıstıyorum..

her ıkısı ıcın kod yazma konusunda yardımcı olabilirseniz çok memnun olurum..

tşk.

 

[Necdet]

Merhaba,

Aşağıdaki kodları deneyiniz.

Sub SatirSil()
Dim i   As Long
Dim s   As Worksheet
Set s = Sheets("GENEL")
s.Select
Application.ScreenUpdating = False
For i = [A65536].End(3).Row To 4 Step -1
    If Cells(i, "E") = 0 And Cells(i, "F") = 0 Then Rows(i).Delete
Next i
Application.ScreenUpdating = True
MsgBox " Adet Satır Bulundu ve Silindi", vbInformation, "excel.web.tr"
End Sub

 

[drlacter]

çok teşekkür ederim yardımınız için..

peki copy sheetıne e sutununda degerı olanları nasıl alabileceğim konusunda yardımcı olabilirmisinz kod ile??

 

[Necdet]

Merhaba,

Aşağıdaki kodları deneyiniz.

Sub DoluDegerAl()
Dim i As Long
Dim j As Long
Dim sg As Worksheet
Dim sc As Worksheet
Set sg = Sheets("GENEL")
Set sc = Sheets("copy")
sg.Select
sc.Cells.ClearContents
For i = 3 To sg.[A65536].End(3).Row
    If sg.Cells(i, "E") > 0 Then
        j = j + 1
        sg.Range("A" & i & ":F" & i).Copy sc.Range("A" & j)
    End If
Next i
MsgBox "İşlem Tamamdır."
End Sub