Kısa Açıklama
Son Satırdan Yapıştırma isimli başlıkta, ilgili işlemlere dair detaylar yer almaktadır.- Excel Versiyonu
- Excel 2016
- Excel Sürümü
- 64 Bit
- Excel Dili
- Türkçe
Sevgili arkadaşlar selamlar;
Formülümde uyarlayamadığım bir nokta var yardımcı olursanız sevinirim. 2. ve 3. satırda ki formüle son dolu hücreden yapıştırma işlemine devam et şeklinde yazmak istiyorum)
If s1.Cells(x, 1) <> "" Then
s1.Cells(x, 28) = Left(s1.Cells(x, 1), 1) (28. sütuna uzunluğu 1 olanlar yapıştırıcak)
s1.Cells(x, 28) = Left(s1.Cells(x, 1), 2) (Üstteki satırın bittiği yerden itibaren uzunluğu 2 karakter olanları ve aşağıda ki kısımda da uzunluğu 3 olanları son dolu hücreden itibaren alacak)
s1.Cells(x, 28) = Left(s1.Cells(x, 1), 3)
Formülümde uyarlayamadığım bir nokta var yardımcı olursanız sevinirim. 2. ve 3. satırda ki formüle son dolu hücreden yapıştırma işlemine devam et şeklinde yazmak istiyorum)
If s1.Cells(x, 1) <> "" Then
s1.Cells(x, 28) = Left(s1.Cells(x, 1), 1) (28. sütuna uzunluğu 1 olanlar yapıştırıcak)
s1.Cells(x, 28) = Left(s1.Cells(x, 1), 2) (Üstteki satırın bittiği yerden itibaren uzunluğu 2 karakter olanları ve aşağıda ki kısımda da uzunluğu 3 olanları son dolu hücreden itibaren alacak)
s1.Cells(x, 28) = Left(s1.Cells(x, 1), 3)