E

Çözüldü Komut çözümü !

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

ERMAN.SAYINALP

Normal Üye
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Merhaba,

Halihazırda kullandığım aşağıdaki KODLAMA'da, "A2:K" adresini, başka bir uygulamada kullanmak üzere "B5:L" yaptığımda, KODLAMA çalışmıyor.
Aşağıdaki kodlamanın ne ifade ettiğini ve başkaca nerede/nerelerde değişiklik yapmam gerektiği hususunda değerli yardımlarınız lütfen.

For sat = Cells(Rows.Count, 1).End(3).Row To 1 Step -1
If Cells(sat, 1).Value <> Empty Then: Exit For
Next: If sat <> 1 Then Range("A2:K" & sat).Select

Selection.Copy
 
Merhaba,

Hata mı alıyorsunuz yoksa sonuç bir şey vermiyor mu?
Ben kodunuzu 4 satırlık örnek bir sayfa çalıştırdım sorunsuz seçim yaptı.

1596310575028.webp


Sayfa farklılığı olabilir, o kısmı kontrol edebilirsiniz.
 
Moderatörün son düzenlenenleri:
Koddaki dolu satır sayısına göre tek işlemlik bir döngü kurmuş.
Satır sayısının yer aldığı A sütunundaki son dolu hücre boş değilse kod sonlansın demiş.

Değilse, son dolu satır 1 e eşit değilse B5:L X değeri kadar alanı seç demiş ve sonra da o kısmı kopyalatmaya çalışmış.

Kodların tercümesi bu ama işlevi ne dosyayı görmek lazım.
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst