Çözüldü Formülü sutundaki boş hücreleri dolu görüyor

[hasanyaprak]

Arkadaşlar Merhaba,
Desteğinize ihtiyacım var. Yardımcı olabilirseniz sevinirim.

"LISTE" isimli sheetten A2 ile F aralığında satır sayısı değişebilen bir listem var. Bu sayfadan verileri kopyalayıp GENEL LISTE isimli Sayfaya son boş satırdan başlayarak yapıştırmak istiyorum.

Şuan butonun olduğu sayfadan sheet3 e kopyalama yapan bir vba çalışıyor. Butonun olmadığı sayfadaki veride işlem yapamadım.

Dosya ektedir.

 

[Mdemir63]

Selamlar
İnceleyiniz

 

[hasanyaprak]

Selamlar
İnceleyiniz

Hocam teşekkür ettim. İşime çok yaradı.

Aşağıdaki gibide çalıştırdım.
sona = Sheets("LISTE").Cells(Rows.Count, "A").End(3).Row
Son = WorksheetFunction.Max(sona)
Sheets("LISTE").Range("A2:F" & Son).Copy

Sheets("GENEL LİSTE").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
MsgBox "Kopya tamamlandı "

 

[hasanyaprak]

Selamlar
İnceleyiniz

Aşağıdaki gibi bir problemle karşılaştım.

Örnek;
LISTE sayfasındaki A sutunu aslında 1-20 arası dolu ama formüllü alanım 1-40 arası . Formülde Eğer(B5=1;0;"") gibi bir ifade olsun. 20-40 arasında "" ifadesi olduğu için 20-40 arasında da değer varmış gibi düşünerek her 40 adımda bir kopya yapıyor. Değerleri yapıştır dediğim halde düzelmedi neden yapar acaba?

Dosya ekte.

 

[Mdemir63]

Selamlar

aşağıdaki kod içinde

            ssL = ws.Range("A65000").End(xlUp).Row

A yerine B yazıp deneyiniz

 

[hasanyaprak]

Selamlar

aşağıdaki kod içinde

            ssL = ws.Range("A65000").End(xlUp).Row

A yerine B yazıp deneyiniz

Hocam formüllü A sutununda çalıştırmam lazım. Excel dosyam normalde bu değil şirkete ait bilgiler olduğu için bu exceli örnekleme yaptım.
Düzenlenecek verinin tamamı formüllü.

 

[Mdemir63]

Formülle sizin işiniz yok ki, Sonuç olarak formül olmayan sütunlardan
(dosyada ki gibi ) herhangi birini son satırı bulmak için kullanabilirsiniz
sizin için önemli olan dolu olan yerleri kopyala diğer sayfaya yapıştır değil mi?

 

[hasanyaprak]

Formülle sizin işiniz yok ki, Sonuç olarak formül olmayan sütunlardan
(dosyada ki gibi ) herhangi birini son satırı bulmak için kullanabilirsiniz
sizin için önemli olan dolu olan yerleri kopyala diğer sayfaya yapıştır değil mi?

Hocam bu excel özelinde formüllü alanla işim yok haklısınız. Ama asıl uygulayacağım excelin tüm hücreyeleri başka bir sayfadan çektiği için formüllü. Değer varsa alıyor yoksa "" işareti kullanıyorum. Bu sebeple formüllü alanda işlem yapmam lazım. Asıl dosya 100,000 satırlık.

 

[Mdemir63]

Peki hep 40. satıra kadar mı formül oluyor, yoksa formül olan hücreler de değişken mi?

 

[hasanyaprak]

Bu örnekte 40 ama asıl örneğimde 2000 e kadar 40 I örneklendirme yaparsak uyarlarım ben. Formül alanım sabit ama dolu hücre değişken.

 

[Mdemir63]

Liste Sayfasında F1 Hücresi referans olarak kullanılmıştır
İnceleyiniz

 

[hasanyaprak]

Liste Sayfasında F1 Hücresi referans olarak kullanılmıştır
İnceleyiniz

Hocam sorun gözükmüyor. Teşekkür ederim. Ellerine sağlık.

 

[Mdemir63]

Rica ederim.
İyi çalışmalar