yazdığım makro neden çalışmıyor

[metinavci23]

arkadaşlar ekte sunulana dosydan da göüleceği uzere 2 adet makro yazdım.ilkini(deneme adlı) denemek için yazdım ve çalıştı ancak 2 makro(gunkasarapor adlı makro) ayni işi görüyor ancak "Run-Time '9! Subscript out of Range" hatası veriyor.Hata makronun başında "Set SV= Sheets("DVERITABANI")" sutununda.yardımınızı bekliyorum.lütfen hatanın nedenini de yazarsanız memnun olurum.saygılarımla

 

[Ferhat Pazarçevirdi]

Sn.metinavci23

DVERITABANI adlı sayfanın tam adı "DVERITABANI" değil, "DVERITABANI " (DVERITABANIbosluk)... Yani, kitaptaki sayfa ismine bakarsanız "I" harfinden sonra bir adet boşluk karakteri var.

Ya hata veren satırı aşağıdaki gibi yapın.

Set SV= Sheets("DVERITABANI ")

Yada koda hiç dokunmadan, sayfa isminin sonundaki boşluğu silin.

 

[metinavci23]

Sn.fpc

sayın FPC,

tespit ettiğiniz hatayı düzettim ama yine verileri aktarmıyor(makro çalışmıyor).zahmet olacak ama yine bi bakarmısınız.

 

[Recep İpek]

Kodlarda bazı hatalar mevcut.

For i = 1 To SV.[A65536].End(3).Row

satırını

For i = 4 To SV.[A65536].End(3).Row

olarak ,

If SG.Cells(1, 1) = SV.Cells(i, "B")

satırlarını ise

If CDate(SG.Cells(1, 1)) = CDate(SV.Cells(i, "B"))

olarak değiştirin.

Birde DKASAGÜN sayfasının aşağılarında bilgiler var.Bunlarıda ya silebilirsiniz.Yada kodları buna göre revize ediniz.

 

[metinavci23]

teşekürler

teşekürler sayın Ripek.Eskişehir'den Selamlar