Sütun eklemesi yaptıktan sonra makrodaki hata

[faceturk]

Değerli forumdaşlar
ekte daha önce kullanmakta olduğum bir şablonum vardı ve ben bu şablonda bir sütun eklemesi yaptım ve makro hata vermeye başladı nedini ben bulamadım burada bulunan değerli üyelerden yardım bekliyorum
Yardımlarınız için şimdiden teşekkürler
saygılar, selamlar

 

[Ömer]

Merhaba,

Tablonun bozulmadan önceki formüllerini görebilmemiz için hatasız olan dosya varsa onuda eklermisiniz..

.

 

[leumruk]

Merhaba,
Bakiyeler sayfasındaki kodu aşağıdakiyle depiştirin:

Private Sub Worksheet_Activate()
fd = Range("A65536").End(xlUp).Row
For i = 5 To fd
For g = 2 To 14
If Cells(4, 1).Value > Cells(i, 1).Value Then Cells(i, g).Value = Cells(i, g).Value
If Cells(4, 1).Value = Cells(i, 1).Value Then Cells(i, g).Value = [COLOR="Red"]"=VLOOKUP(R4C,'Alınan Bakiye'!C4:C5,2,0)"[/COLOR]
If Cells(4, 1).Value < Cells(i, 1).Value Then Cells(i, g).Value = 0
Next
Next
End Sub

Kırmızı satır düzenlendi.
NOT: Makro yazıldıktan sonra sütun veya satır ekleme ve silme işlemi yaparsanız, kodlar hata verecektir.

 

[faceturk]

sayın ömer bey teşekkür ederim sayın leumruk makroyu düzletmiş ona da çok teşekkürler saygılarımla