Makro Hata Veriyor

[igultekin2000]

iyi günler;
B2 hücresine yazdığım fiş numarasına göre Veri sayfasından o fişe ait bilgileri getiriyor. FİŞ GETİR çalışma sayfasındaki 3.satırın dolu olmadığında ise makro kilitlenerek hata veriyor açıp kapatmak zorunda kalıyorum. FIS_DTY çalışma sayfasının 3 satırının dolu olmasını veya makronun hata vermemesi için ne gibi işlem yapmam gerekiyor. Makronun başına " On Error Resume Next " yazdım ama etkili olmadı. Kullandığım makro şu şekildedir.

Sub hspno_getir()
Application.ScreenUpdating = False: Application.Calculation = xlCalculationManual
Dim s As Worksheet
Dim a As Long, b As Long, c As Long
Dim MM
Set s = Sheets("FIS_DTY")
Sheets("FIS_DTY").Range("A4:I" & Range("I65536").End(3).Row).ClearContents
MM = 3
For a = 1 To Sheets.Count
If s.Cells(2, "A") Like Sheets(a).Name Then
For b = 2 To Sheets(a).Cells(65536, "A").End(3).Row
If s.Cells(2, "B") = Sheets(a).Cells(b, "B") Then
For c = 1 To 9
s.Cells(MM, c) = Sheets(a).Cells(b, c)
Next
MM = MM + 1
End If
Next
End If
Next
Sheets("FIS_DTY").Range("A4:I" & Range("I65536").End(3).Row).Font.Name = "Calibri"
Sheets("FIS_DTY").Select
Sheets("FIS_DTY").Range("A4:I" & Range("I65656").End(3).Row).Font.Size = 11 'yazı tipi boyutu
Sheets("FIS_DTY").Select
Sheets("FIS_DTY").Range("D4:G" & Range("G65656").End(3).Row).NumberFormat = "#,##0.00"
Application.ScreenUpdating = True: Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
End Sub

 

[YUSUF44]

Tecrübeli bir forum kullanıcısı olarak sorunuzu excel dosyası yerine resim olarak paylaşmanızı yadırgamadım dersem yalan olur.

Kodların baş kısmına

If Sheets("FIS_DTY").[A3] = "" then exit sub

Satırını eklerseniz FIS_DTY sayfasının A3 hücresi boşsa makro işlem yapmaz. Daha fazla hücre kontrol edilecekse kodda revize yapılabilir.

 

[igultekin2000]

Tecrübeli bir forum kullanıcısı olarak sorunuzu excel dosyası yerine resim olarak paylaşmanızı yadırgamadım dersem yalan olur.

Kodların baş kısmına

If Sheets("FIS_DTY").[A3] = "" then exit sub

Satırını eklerseniz FIS_DTY sayfasının A3 hücresi boşsa makro işlem yapmaz. Daha fazla hücre kontrol edilecekse kodda revize yapılabilir.

Teşekkürler, uzun zamanda bayağı karışık şekilde tasarlanıp toparlandığı için çok sayfalı ve karışık bir çalışmadır. Ayrıca mb olarak yüksek yapıya sahip o yüzden bu şekilde daha sormak zorunda kaldım.