Soru aktarılanların altına aktarma

[NADİR YILDIZ]

Arkadaşlar int v.d.sekmesindeki verileri b formu sekmesine aktarıyorum.sonra bu sayfadaki sarı olanlarıda önceki aktardıklarımın altına aktarmak istiyorum.daha önce hatırlayamadığım biri burada yardımcı olmuştu.onun kodlarını kullanmak istedim ancak sonuç alamadım yardımcı olurmusunuz.teşekkür ederim

 

[Korhan Ayhan]

B FORMU isimli sayfanızın 1500. satırından sonraki satırları kontrol ediniz.

 

[NADİR YILDIZ]

Üstad uyarınız için teşekkür ederim.
temizledim onları aktarılanlar
zaten sorun burada başlıyor
int.vd.sayfasında 10.satırdan sonrası formüllü olduğu için B formu sayfasına verilerle birlikte formüllü alanı aktarıyor.
benim istediğim formülleri olmadan int.vd.10 satırı aktarsın sonrada portaldakileri aktardığımda 10.satırdan itibaren aktarsın istiyorum

 

[Korhan Ayhan]

Kullandığınız kod benim yazım tekniğime benziyor. Sanırım ben paylaşmıştım.

Şimdi başka bir konu için paylaştığım kodu alıp başka bir tablo için kullanırsanız doğal olarak hatalı çalışması normaldir.

Kodu okuyup düzenlemek gerekir. Siz çok eski üyemizsiniz ve sürekli bu tarz konularla haşır-neşir oluyorsunuz.

Artık bu tarz kodlamaları yapabiliyor olmalısınız diyeceğim. Büyük ihtimalle ben kod yazmayı bilmiyorum ya da öğrenemedim tepkisini vereceksiniz.

Neyse siz aşağıdaki kodu bir deneyiniz.

Private Sub CommandButton1_Click()
    Dim S1 As Worksheet, S2 As Worksheet, Son As Long, Satir As Long
   
    Set S1 = Sheets("B FORMU")
    Set S2 = Sheets("PORTAL")
   
    Son = S2.Cells(S2.Rows.Count, "M").End(3).Row
   
    Satir = S1.Cells(S1.Rows.Count, "A").End(3).Row + 1
   
    S1.Range("A" & Satir & ":H" & Satir).Resize(Son - 3).Value = S2.Range("A4:H" & Son).Value
    
    Set S1 = Nothing
    Set S2 = Nothing

    MsgBox "Aktarım işlemi tamamlanmıştır.", vbInformation
End Sub

 

[NADİR YILDIZ]

Üstad büyük bir olasılıkla sizin kodlarınız olabilir.bir ara çok değişik çalışmalarım oldu başta siz olmak üzere bir çok üstad yardımcı oldular ayrı ayrı teşekkür ederim hepinize .dediğiniz gibi başka çalışmanın kodlarını buna uyarlamak gerekiyor.yapamadım açıkçası.evet eskiyim ve çok değişik çalışmalarım oluyor.evet yapmam gerekiyor.bazı ufak tefek kodları kopyala yapıştır olarak kullanıyorum.ama bir yere kadar ondan sonrası takılıyorum.tepki vermek ne demek o kadar emeğiniz geçiyor bizlere.dediklerinizde haklısınız ama çok istemem rağmen işlerden fırsat bulup bu alana yönelemedim doğrusu.uyarılarınız için teşekkür ederim.

bu kodu uyguladığımda aktarıyor ancak öncelikle int.vd.sayfasında formül olduğu için 0 0 0 olarak aktarım yapıyor.sonrasında portal sayfasından aktarım yaptığımda alt satırlara aktarıyor.benim istediğim int.vd.aktardığı verilerin hemen altına aktarmasın sanırım int.vd. kodlarında da revize yapılması gerekiyor.teşekkürler...

 

[Korhan Ayhan]

B FORMU sayfanızdaki A10:H1048576 alanını önceklikle temizleyiniz. Sonrasında kodu deneyiniz.

 

[NADİR YILDIZ]

üstad dediğiniz yaptım temizledim
ben anlatamadım sanırım.
öncelikler int.vd.sayfasını aktarıyorum.bu sayfada 10.satırdan sonra formüller var.
B formu sayfasına aktarırken10 satır ve sonrasını formüllü alan 0 0 0 0 olanlarıda b formu sayfasına aktarıyor.
sonra portal sayfasından aktarım yaptığımda 0 00 0 altına aktarıyor.
sanırım.int.vd.aktarım kodumda formüllü alanlarıda aktardığı için acaba int.vd. kodunda sadece verileri b formu sayfasına aktarım yapacak şekilde kodda değişiklik yapılsa sorun kalmayacak.çünkü b formu sayfasında 10 satırdan sonrasını silince sorun kalmıyor aktarım.yapıyor
int.vd.kodunda formüllü alanların aktarmaması için kodda değişiklik yapabilirmisiniz
teşekkürler....

 

[Korhan Ayhan]

Neden formüllü alanı aktarıyorsunuz. O alan hemen sağ taraftaki manuel verileri alıyor. O alanı aktarsanız sorun düzelmez mi?

 

[NADİR YILDIZ]

Üstad sağ taraftaki alandaki sütun başlıkları ve istediğim bilgiler aynı değil
hem int.vd. hemde portaldaki gelen veriler farklı sütunlarda yer alıyor.
aktarım için mecburen sabit bir veri listesi oluşturmam gerekiyor haliyle
bu sebeple sağ taraftakileri aktarım yapamıyorum.
teşekkürler

 

[Korhan Ayhan]

Sağ taraftaki tablodaki son satır numarasını baz alacaksınız. Tablo olarak yine A-H sütun aralığını aktarabilirsiniz.

Deneyiniz.

"İNT.V.D" sayfasındaki veri olan satırları "B FORMU" sayfasına aktarır. Hep alt alta aktarır. Önceki aktarımı silmez.

Private Sub CommandButton1_Click()
    Dim S1 As Worksheet, S2 As Worksheet, Son As Long, Satir As Long
   
    Set S1 = Sheets("B FORMU")
    Set S2 = Sheets("İNT.V.D")
   
    Son = S2.Cells(S2.Rows.Count, "S").End(3).Row
   
    Satir = S1.Cells(S1.Rows.Count, "A").End(3).Row + 1
   
    S1.Range("A" & Satir & ":H" & Satir).Resize(Son - 3).Value = S2.Range("A4:H" & Son).Value
    
    Set S1 = Nothing
    Set S2 = Nothing

    MsgBox "Aktarım işlemi tamamlanmıştır.", vbInformation
End Sub
[Code]

 

[NADİR YILDIZ]

Üstad teşekkür ederim.
Emeğinize sağlık istediğim gibi olmuş.size zahmet verdim
yine büyük bir olasıkla daha önceki çalışmalarımda kullandığım sizin kodlarınızdan yararlanarak bir ekleme yaptım
B formu sayfasından boş olanları temizleterek.alt satıra aktarım yapıyor.

iyi çalışmalar

 

[Korhan Ayhan]

Bu son paylaştıklarınız örnek dosya mı?

Yoksa yeni bir soru mu?

 

[NADİR YILDIZ]

yok o kadar da değil
yeterince zahmet verdim.sorun çözülmüştür

sizin kodunuzu ekleyip çalıştığını göstermek istedim birde dediğim gibi boş alanı temizleyip.öyle aktarım yaparak sonuca ulaştığım dosyayı ekledim

iyi çalışmalar