Verileri diğer sayfalara aktarılması hk.

[1903emre34@gmail.com]

Merhaba,

Aralarında tek satır olan (kırmızı boyanmış hücreler), farklı kayıtlar bulunmaktadır, benim istediğim açıklama kısmında bulunduğumz yıldan önceki yıllar

 

[Asri]

Bu şekilde dener misiniz

Sub hesap_kopyala()
   Application.DisplayAlerts = False
   If WorksheetExists("Gecicixxxxx") Then Sheets("Gecicixxxxx").Delete
   Set newsh = Sheets.Add(After:=Sheets(Sheets.Count))
   newsh.Name = "Gecicixxxxx"
   Application.DisplayAlerts = True
   
   Sheets("Sayfa1").Cells.Copy Sheets("Gecicixxxxx").Range("A1")
    
   sonsatir = Cells(Rows.Count, "A").End(3).Row
   For i = sonsatir To 2 Step -1
     verig = Cells(i, "G").Value
     veric = Cells(i, "C").Value
     If Len(veric) >= 1 Then
        If InStr(verig, "2018") > 0 Or Left(veric, 1) <> "8" Then
            Rows(i).Delete
        End If
     End If
   Next i
End Sub


Public Function WorksheetExists(ByVal WorksheetName As String) As Boolean
   On Error Resume Next
   WorksheetExists = (Sheets(WorksheetName).Name <> "")
On Error Resume Next
   On Error GoTo 0
End Function

 

[1903emre34@gmail.com]

Teşekkürler, çalışıyor.