Soru Komut çözümü !

ERMAN SAYINALP

Yeni Üye
Kullanıcı

Reputation:

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
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

Admin

Kurucu
Yönetici
Kurucu
İçerik Ekleyici

Reputation:

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.png

Sayfa farklılığı olabilir, o kısmı kontrol edebilirsiniz.
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

ERMAN SAYINALP

Yeni Üye
Kullanıcı

Reputation:

1596311399671.png

1596311422077.png

Aldığım hata resimleridir.

Ayrıca Kodlama'nın ne ifade ettiğini de açıklayabilir misiniz ?
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

Admin

Kurucu
Yönetici
Kurucu
İçerik Ekleyici

Reputation:

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.
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

Admin

Kurucu
Yönetici
Kurucu
İçerik Ekleyici

Reputation:

@ERMAN SAYINALP konu ok ise ilgili çözümü işaretlemenizi rica ederim. Değilse lütfen dosya ekleyin nihayete erdirelim.

Teşekkürler.
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

Üst