DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub OtuzdakikadaBir()
Set Sh = Worksheets("Sayfa3")
k = 4
For i = 4 To Range("A4").End(xlDown).Row
If Range("E" & i) = 0 Or Range("E" & i) = 30 Then
k = k + 1
Range("A" & i, "J" & i).Copy Sh.Range("A" & k, "J" & k)
End If
Next i
End Sub
hocam çok teşekkür ederim yardımınız için ancak tüm satırı getirmiyor formül maalesefAna tablonun olduğu sayfanın kod bölümüne yapıştırın.
Sayfa3 isimli bir sayfanız yoksa oluşturun
Kodu çalıştırın
C++:Sub OtuzdakikadaBir() Set Sh = Worksheets("Sayfa3") k = 4 For i = 4 To Range("A4").End(xlDown).Row If Range("E" & i) = 0 Or Range("E" & i) = 30 Then k = k + 1 Range("A" & i, "J" & i).Copy Sh.Range("A" & k, "J" & k) End If Next i End Sub
Resimlerde J sütununa kadar gözüküyordü.
Siz kodda J sütunu yerine istediğiniz sütun etiketini yazabilirsiniz.