çoklu çalışma sayfası

[igultekin2000]

iyi günler;
pdf' ten exel' e çevirdiğimde, veri çoklu sayfa olarak çevriliyor, standart olarak bu çalışma sayfalarını alttan 31-34' üncü satır ve üstten 1-7 arası satırların genel bilgi içerdiği için silmek istiyorum. daha sonra sayfaları birleştiriyorum silme işlemini manuel yapmak zaman alıyor, makro ile pratikleştirmek mümkün olur mu?. örnek dosyayı ekledim. teşekkürler.

 

[Ziynettin]

Merhaba,

A sütununda tarih olmayan satırları temizler.

Sub tmz()
son = Cells(Rows.Count, "A").End(3).Row
a = Range("A1:A" & son)
    For i = 1 To UBound(a)
        trh = Format(a(i, 1), "dd.mm.yyyy")
        If Not IsDate(trh) Then
            Range("A" & i).Resize(, 8).ClearContents
        End If
    Next i
End Sub

 

[igultekin2000]

Merhaba,

A sütununda tarih olmayan satırları temizler.

Sub tmz()
son = Cells(Rows.Count, "A").End(3).Row
a = Range("A1:A" & son)
    For i = 1 To UBound(a)
        trh = Format(a(i, 1), "dd.mm.yyyy")
        If Not IsDate(trh) Then
            Range("A" & i).Resize(, 8).ClearContents
        End If
    Next i
End Sub

Teşekkürler sorunsuz çalışıyor, ancak çoklu çalışma sayfasında gerekiyor. yani aynı işlemi aynı çalışma kitabındaki bütün çalışma sayfalarına uygulaması çok daha pratik olacaktır. iyi çalışmalar

 

[Ziynettin]

Bütün sayfalar için.

Sub tmz_1()
    For j = 1 To Worksheets.Count
        Set sh = Sheets(j)
        son = sh.Cells(Rows.Count, "A").End(3).Row
        a = sh.Range("A1:A" & son)
        For i = 1 To UBound(a)
            trh = Format(a(i, 1), "dd.mm.yyyy")
            If Not IsDate(trh) Then
                sh.Range("A" & i).Resize(, 8).ClearContents
            End If
        Next i
    Next j
End Sub

 

[igultekin2000]

Bütün sayfalar için.

Sub tmz_1()
    For j = 1 To Worksheets.Count
        Set sh = Sheets(j)
        son = sh.Cells(Rows.Count, "A").End(3).Row
        a = sh.Range("A1:A" & son)
        For i = 1 To UBound(a)
            trh = Format(a(i, 1), "dd.mm.yyyy")
            If Not IsDate(trh) Then
                sh.Range("A" & i).Resize(, 8).ClearContents
            End If
        Next i
    Next j
End Sub

Teşekkür ederim, sorunsuz çalışıyor. iyi çalışmalar