Makro ile sayfadan sayfaya veri aktarırken iki sutunu toplatıp aktarabilirmiyiz

[Ferhat Pazarçevirdi]

Tamam gerek kalmadı.

Ekteki dosyayı inceleyiniz.

 

[ferhatgurbuz]

Arkadaşlar bu dosyada hata veriyor.

bu dosyada hata veriyor. Hatadaki mesajdan anlayabilirsek çok iyi olacak. Çünkü üzerinde çalıştığım dosya bu diğeri bunun kopyası ve aynı zamanda en son yaptığım bazı deişikliklerinde olmadığı bir dosya

 

[Ferhat Pazarçevirdi]

Data sayfasındaki formüllerinizde hatalar var, kontrol edin.

Bu formül hatalarını düzelttikten sonra; tekrar makroyu çalıştırmayı deneyin.

Not : Mesela, Data Sayfasındaki BE48 hücresinde #DEĞER# hatası görüntülenmekte..

 

[ferhatgurbuz]

Bu konu açılmışken birşey sorayım.Data sayfasında herhangi bir hücre #DEĞER# hatası verdiği zaman kodlar böyle hata verirmi. Verirsede bunu yani hatayı görmezden gelemezmi

 

[Ferhat Pazarçevirdi]

Hücrelerdeki hata sizin için önemli değilse; kodlarda atlanabilir. Aşağıdaki örneği inceleyin

Sub Aktarma()
Dim Hucre As Range
Set shD = Sheets("Data")
Set shA = Sheets("Ayrıntı")
y = 7
For Each Hucre In shD.Range("be11:be305")
[B][COLOR=red]    If IsError(Hucre) = True Then: GoTo f1[/COLOR][/B]
    If Hucre.Value = 0 Or Hucre.Value = "" Then: GoTo f1
        shA.Cells(y, 3) = shD.Cells(Hucre.Row, 4)
        shA.Cells(y, 4) = shD.Cells(Hucre.Row, 5)
        shA.Cells(y, 5) = shD.Cells(Hucre.Row, 47)
        shA.Cells(y, 6) = shD.Cells(Hucre.Row, 57)
        shA.Cells(y, 7) = shD.Cells(Hucre.Row, 69)
        shA.Cells(y, 8) = shD.Cells(Hucre.Row, 68)
        shA.Cells(y, 9) = shD.Cells(Hucre.Row, 70)
        shA.Cells(y, 10) = shD.Cells(Hucre.Row, 61) + shD.Cells(Hucre.Row, 60) + shD.Cells(Hucre.Row, 71)
        shA.Cells(y, 6) = shD.Cells(Hucre.Row, Hucre.Column)
        y = y + 1
f1:
Next
Set shD = Nothing
Set shA = Nothing
End Sub

 

[ferhatgurbuz]

Kusura bakmayın konu konuyu açıyor. Aynı şekilde diğer kod dosyalarına da bunu eklemek yani bunu derken bu bire bir uymaz zaten onlara da bu değer hatasını görmemesi için kod eklesek. Eğer siz müsaitseniz.