Excel VBA Cari Program Bölüm 10
Arkadaşlar SİL Kısmında
ElseIf EskiÖdemeŞekli = "Bankadan" Then
Banka = wsDetay.Cells(Satır, "R") & ".xlsm"
KitapYolu = ThisWorkbook.Path & "\Bankalar\" & Banka
Workbooks.Open (KitapYolu)
şeklindeki bölümde
Banka = wsDetay.Cells(Satır, "R") & ".xlsm"
kısmını silip yukarıya koyun lütfen orada bir hata yapmışım
If SoruMesajı("Dikkat Bu Satır Silinecek Emin misiniz ...?") = vbNo Then Exit Sub
EskiÖdemeŞekli = wsDetay.Cells(Satır, "C")
Banka = wsDetay.Cells(Satır, "R") & ".xlsm"
SilinecekSatır = Satır & ":" & Satır
wsDetay.Rows(SilinecekSatır).Delete
şeklinde olsun
aşağısı da
ElseIf EskiÖdemeŞekli = "Bankadan" Then
KitapYolu = ThisWorkbook.Path & "\Bankalar\" & Banka
Workbooks.Open (KitapYolu)
şeklinde olmalı
kusura bakmayın