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

[ferhatgurbuz]

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

Sub Aktarma1()
Dim Hucre As Range
Set shD = Sheets("Data")
Set shA = Sheets("Ayrıntı")
y = 7
For Each Hucre In shD.Range("be11:be305")
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)
shA.Cells(y, 6) = shD.Cells(Hucre.Row, Hucre.Column)
y = y + 1
f1:
Next
Set shD = Nothing
Set shA = Nothing
End Sub

 

[Ferhat Pazarçevirdi]

Hangi sütunların toplamını, nereye yazdırmak istiyorsunuz?

 

[ferhatgurbuz]

Yukarıdaki kodu ben ayarladım ama 61.Sütun ile 60 ve 71. sütunlarıda toplamak istiyorum.

Yani (60+61+71)

 

[Ferhat Pazarçevirdi]

Sn.ferhatgurbuz

Sorularınız açık ve de açıklamalarınız net değil.

Yukarıdaki kodun toplama işlemi ile hiçbir alakası yok. Sadece koşula uygun hücreleri bir başka sayfaya aktarıyor. Siz toplama işlemini bunun neresine koymak istiyorsunuz.

Ola ki; toplama işlemini çözdük, bu toplam nereye aktarılacak.

 

[ferhatgurbuz]

örnek

dosya ektedir arkadaşlar

 

[Skorpiyon]

Sayın ferhatgurbuz,

Sayın fpc haklı. Sorularınız net ve anlaşılır değil.

Lütfen özel mesaj atmadan, dosyanızı buraya bir kez daha ekleyerek, tam olarak ne yapmak istediğinizi anlatın.

Benim anladığım kadarıyla daha önceki konularda eklemiş olduğunuz bir dosyada form ile ilgili olarak maaş hesaplatmak istiyorsunuz.

Orada da size soruduğumuz üzere :

Hangi textbox nesnelerini toplatmak istiyorsunuz ?

Saygılarımla...

 

[ferhatgurbuz]

Tamam arkadaşlar kızmayın

Ayrıntı sayfasında örnek üzerinde anlatmaya çalıştım . İnşallah bu sefer başarmışımdır.

 

[Skorpiyon]

Sayın ferhatgurbuz,

Bu sorduğunuz kısım fonksiyonlar ile ilgili ve benim fonksiyon bilgim maalesef "SIFIR".

Bu konuda size (bilgim olmaması sebebiyle) yardımcı olamayacağım için üzgünüm.

Saygılarımla...

 

[ferhatgurbuz]

Sağolun ilgilendiğiniz için teşekkür ederim.

 

[Ferhat Pazarçevirdi]

Sn.Ferhatgurbuz

Bu sayfaya (Ayrınt&#305 yukarıda verdiğiniz kodlarla mı, veri aktarıyorsunuz?

 

[Ferhat Pazarçevirdi]

Eğer doğru anladıysam, aşağıdaki şekilde kodlarınızı değiştirin

Sub Aktarma1()
Dim Hucre As Range
Set shD = Sheets("Data")
Set shA = Sheets("Ayrıntı")
y = 7
For Each Hucre In shD.Range("be11:be305")
    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)
 [B][COLOR=red]       shA.Cells(y, 10) = shD.Cells(Hucre.Row, 61) + shD.Cells(Hucre.Row, 60) + shD.Cells(Hucre.Row, 71)
[/COLOR][/B]        shA.Cells(y, 6) = shD.Cells(Hucre.Row, Hucre.Column)
        y = y + 1
f1:
Next
Set shD = Nothing
Set shA = Nothing
End Sub

 

[ferhatgurbuz]

If Hucre.Value = 0 Or Hucre.Value = "" Then: GoTo f1

diye kod sayfasına dönüyor. Sebebi ne olabilir.

 

[Ferhat Pazarçevirdi]

İlk başta verdiğiniz kodlar(1.mesaj), çalışıyor muydu ?

 

[ferhatgurbuz]

evet çalışıyordu.Şuan işlem yapıyor sonrada kod sayfasına hata gösteriyor.

Anlayamadım eski kodu tekrar yapıştırdım yine aynı hatayı verdi. ama daha önce defalarca denedim çalışıyordu.

 

[Ferhat Pazarçevirdi]

Ama bu kodun yapısını hiç değiştirmedik ki... Sadece kırmızı olarak işaretlediğim satırı genişlettik.

Hata mesajında ne diyor?

 

[ferhatgurbuz]

İnanki bende şuan çözmeye çalışıyorum ama çözemedim. İşin doğrusu ben bunu sizin daha önce yaptığınız kodu deneme yanılma yoluyla yapmıştım. Tam mantığınıda kavrayamadım aslında

 

[ferhatgurbuz]

Neyse sizlere kolay gelsin. Ben kaçıyorum. Artık sonra tekrar bakalım.

 

[Ferhat Pazarçevirdi]

7.Mesajdaki dosyanızda denediğinizde mi hata verdi?.

Öyle ise; ben bu dosyaya bakayım. Değilse; çalıştığınız dosyayı ekleyin.

 

[ferhatgurbuz]

Çalışan bir örnek dosya

şuan bu haliyle çalışıyor. Zaten diğer dosyadan kopya alıp buraya ekledim ama ana dosya üzerinde sonra birkaç değişiklik yaptım ama ne yaptımda böyle oldu bilmiyorum.

 

[Ferhat Pazarçevirdi]

Peki bu hatayı almak için, hangi formda hangi butona basmam gerekli biraz tarif eder misiniz? Yani ne yaparken bu hatayı veriyor?