C

Soru Son Satırdan Yapıştırma

C

ceterisdenge

Normal Üye
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)
 
Tarihe göre sırala Oylamaya göre sırala
Sayın @ceterisdenge .

İsteğiniz zor görünmüyor ama az sayıda verinin olduğu bir örnek belge yükleyip,
olması gerekeni elle yazarak örneklendirirseniz iyi olur.

Verdiğiniz kod satırlarından anladığım, bu satırlar bir döngünün içerisinde.
İsteğiniz, bir veri listesinde (bu listenin nasıl sıralanmış olduğu önemli),
uzunluğu 1 olanlar listelenip, ardından 2 olanlar ve ardından da 3 olanlar şeklinde listelemekse;
ve en önemlisi de bu işlemi mevcut kodların içerisinde gerçekleştirmekse, hem örnek belgenin (verilerin durumu)
hem de kodların bütününün görülmesinde yarar var.

Kodların bütününü görmediğimize göre şöyle bir öneride bulunayım.
Verdiğiniz kod'da, eşitliğin solundaki kısım verinin yazılacağı hücre olduğuna göre;
bu kısımdaki satır numarası olan x yerine, s1.Cells(Rows.Count, 28).End(3).Row+1 yazılması lazım gibi görünüyor.

.
 
Oyla 0 Olumsuz oyla
Yanıt için giriş yapmanız veya üye olmanız gerekir.
Üst