DOLU SATIR ALTINA VERİ EKLEME

[Erdinç FIRTINA]

DEĞERLİ FORUM ÜYELERİ,

ÖZETLE YAPMAK İSTEDİĞİM;

BELİRTİLEN SF DAKİ DOLU SATIRIN ALTINDAN BAŞLAYARAK,

BELİRTİLEN SAYFALARDAKİ BELİRTİLEN SÜTUNLARDAN BAŞLAMAK KAYDIYLA DOLU SATIRLARDAKİ VERİLERİ AKTARMAK...

ÖRNEĞİN; "DOLU" ADLI SAYFADAKİ VERİLERİN DOLU OLDUĞU EN SON SATIRDAN BAŞLAYARAK, "ALINACAK 1", "ALINACAK 2", "ALINACAK 3" VB. SAYFALARINDAKİ VERİLERİ AKTARMAK.

ANCAK; BURADAKİ AKTARMA İŞLEMİNDE, "DOLU" ADLI SAYFADAKİ VERİLER "B" SÜTUNUNDAN BAŞLARKEN, VERİ ALINACAK SAYFALARDAKİ VERİLER İSE "C" SÜTUNUNDAN BAŞLIYOR. YANİ ALINACAK SF LARDAKİ "C "SÜTUNUNDAN BAŞLAYAN VERİLERİ, "DOLU" SF SINDA "B" SÜTUNUNDAN BAŞLAYARAK AKTARMAK İSTİYORUM.

DOLAYISIYLA; VERİLERİN ALINIP GETİRELECEĞİ SÜTUN BAŞLANGICI İLE VERİLERİN YER ALDIĞI SF LARDAKİ VERİLERİN SÜTUN BAŞLANGICI AYNI DEĞİL.

ÖRNEK DOSYA EKTE OLUP, AÇIKLAMALARI DA DOSYA İÇERİSİNDE YER ALMAKTADIR.

YARDIMLARINIZ İÇİN ŞİMDİDEN ÇOK ÇOK TEŞEKKÜRLER!!!

 

[Orion1]

A sütununda son dolu satır.

sonsat = Cells(Rows.Count, "A").End(xlUp).Row

A sütununda son dolusatırdaki ilk boş satır.

sonsat = Cells(Rows.Count, "A").End(xlUp).Row +1

 

[Orion1]

............................

 

[Erdinç FIRTINA]

A sütununda son dolu satır.

sonsat = Cells(Rows.Count, "A").End(xlUp).Row

A sütununda son dolusatırdaki ilk boş satır.

sonsat = Cells(Rows.Count, "A").End(xlUp).Row +1

Sayın Orion1 teşekkür ederim bilgi için. Ancak benim dosyamda açıkladığım ve yapmak istediğim farklı. Eğer müsait olduğunuzda bakabilirseniz çok mutlu olurum. Yardımlarınız için şimdiden teşekkürler...