Sayfalar arası kopyalama hatası

[Yaren Eslem]

Makro Hatası (Hata Resmi Ektedir)

Aşağıdaki kodda koyu olan yerler hata veriyor, çözümü var mıdır?


Sub KopyalaVeGizle()
Dim wsAylik As Worksheet, ws2025 As Worksheet
Dim sonSutun As Long, hedefSatir As Long
Dim veri As Variant
Dim i As Long

' Çalışma kitabındaki ilgili sayfaları tanımla
Set wsAylik = ThisWorkbook.Sheets("Aylık")
Set ws2025 = ThisWorkbook.Sheets("2025")

' Aylık sayfasında F4'ü baz alarak sağdaki en son dolu sütunu bul
' ve o sütunun 4. satırındaki veriyi al
sonSutun = wsAylik.Cells(4, wsAylik.Columns.Count).End(xlToLeft).Column
veri = wsAylik.Cells(4, sonSutun).Value

' 2025 sayfasında C6 hücresini kontrol et; boşsa C6'ya, doluysa alt satıra yapıştır
If ws2025.Cells(6, 3).Value = "" Then
hedefSatir = 6
Else
hedefSatir = ws2025.Cells(ws2025.Rows.Count, 3).End(xlUp).Row + 1
End If

ws2025.Cells(hedefSatir, 3).Value = veri

' 2025 sayfasında A6'dan A200'e kadar olan satırları gizle
For i = 6 To 200
ws2025.Rows(i).Hidden = True
Next i

' A202 satırını görünür bırak
ws2025.Rows(202).Hidden = False

MsgBox "İşlem tamamlandı!", vbInformation, "Makro"
End Sub

 

[mozdem]

Sayfa isminin sağında yada solunda boşluk olabilir.

Makro Hatası (Hata Resmi Ektedir)

Aşağıdaki kodda koyu olan yerler hata veriyor, çözümü var mıdır?


Sub KopyalaVeGizle()
Dim wsAylik As Worksheet, ws2025 As Worksheet
Dim sonSutun As Long, hedefSatir As Long
Dim veri As Variant
Dim i As Long

' Çalışma kitabındaki ilgili sayfaları tanımla
Set wsAylik = ThisWorkbook.Sheets("Aylık")
Set ws2025 = ThisWorkbook.Sheets("2025")

' Aylık sayfasında F4'ü baz alarak sağdaki en son dolu sütunu bul
' ve o sütunun 4. satırındaki veriyi al
sonSutun = wsAylik.Cells(4, wsAylik.Columns.Count).End(xlToLeft).Column
veri = wsAylik.Cells(4, sonSutun).Value

' 2025 sayfasında C6 hücresini kontrol et; boşsa C6'ya, doluysa alt satıra yapıştır
If ws2025.Cells(6, 3).Value = "" Then
hedefSatir = 6
Else
hedefSatir = ws2025.Cells(ws2025.Rows.Count, 3).End(xlUp).Row + 1
End If

ws2025.Cells(hedefSatir, 3).Value = veri

' 2025 sayfasında A6'dan A200'e kadar olan satırları gizle
For i = 6 To 200
ws2025.Rows(i).Hidden = True
Next i

' A202 satırını görünür bırak
ws2025.Rows(202).Hidden = False

MsgBox "İşlem tamamlandı!", vbInformation, "Makro"
End Sub

 

[Yaren Eslem]

Öncelikle ilginize çok teşekkür ederim.

Altı çizili yerler yine aynı, hata kodu değişti; "this command will stop the debugger"