Tabloyu Başka Sayfaya Aktarmak

[1Al2Ver]

Merhabalar,

Ek'li dosyamda "HAZIRLIK" sayfamda olan tabloyu, "RAPOR" sayfasına makro ile aktarmak istiyorum,

Tabloda elle girilen veriler ve aşağı açılır kutudan alınan veriler var,

(NOT ; "HAZIRLIK" sayfasındaki tablonun üst ve sol yanlarındaki çizelgelerde veriler vardır, "RAPOR" sayfasında 43 ncü satır ile 60 ncı satır aralığı doludur)

Yardımlarınıza ihtiyacım var,

Teşekkür ederim.

 

[Ömer BARAN]

Merhaba.

Aşağıdaki kod'u kullanabilirsiniz.
.

[FONT="Arial Narrow"]Sub HAZIRLIK_K11_R30_AKTAR()
Set h = Sheets("HAZIRLIK"): Set r = Sheets("RAPOR")
For hsat = 11 To 30
    If h.Cells(hsat, 11) <> "" Then
        r.Cells(hsat + 11, 1) = h.Cells(hsat, 11): r.Cells(hsat + 11, 2) = h.Cells(hsat, 12).Value
        r.Cells(hsat + 11, 5) = h.Cells(hsat, 13): r.Cells(hsat + 11, 6) = h.Cells(hsat, 14)
        r.Cells(hsat + 11, 7) = h.Cells(hsat, 15): r.Cells(hsat + 11, 8) = h.Cells(hsat, 15)
        r.Cells(hsat + 11, 9) = h.Cells(hsat, 17): r.Cells(hsat + 11, 10) = h.Cells(hsat, 18)
    End If
Next
h.Range("K11:O11") = "": h.Range("Q11") = ""
h.Range("L12:L30") = "": h.Range("O12:O30") = ""
MsgBox "Veriler aktarıldı", vbInformation, "1Al2Ver"
End Sub[/FONT]

 

[1Al2Ver]

Sayın Ömer BARAN merhaba,

Gayet güzel çalışıyor, teşekkür ederim, emeğinize sağlık.

Aktarma sonrasında, "RAPOR" sayfasına direkt gidilse, nasıl bir ilave kod gerekir ?

Tekrar teşekkür ederim.

 

[Ömer BARAN]

Tekrar merhaba.
MsgBox ibaresinin soluna r.Activate: eklemeniz yeterli olur.
.

 

[1Al2Ver]

Ömer bey tekrar merhaba,

Teşekkür ederim, gayet güzel çalışıyor.

Saygılarımla.

 

[Ömer BARAN]

Ömer bey tekrar merhaba,
Teşekkür ederim, gayet güzel çalışıyor.
Saygılarımla.

Estağfurullah, önemli olan ihtiyacın karşılanması.
İyi günler dilerim.

NOT: Artık bu tür konuları kendinizin aşabileceğinizi düşünüyorum.
Bence çekinmeden denemeler yapıp,
denemeler sırasında karşılaştığınız sorunlara ilişkin destek istemenizi öneriyorum.
Benim gibi birçok üye destek vermek için burada zaten.
İnanın, kısa sürede kendi yaptıklarınıza, kendiniz bile inanamayacaksınız.
Esprili söyleyeyim, elinizi korkak alıştırmayın.
.