Kod güncellemesi

[igultekin2000]

iyi günler;

sl.Cells(sat, "C") = CDate(Mid(sk.Cells(i, "E"), 1, 10))

bu kod E sütunundaki

22.01.2018 S.ISG2018000000002 Asil Grup Mak.San.Ti

ilk on karakterini C sütununa kopyalıyor, S.ISG ... ile başlayan kısımı da farklı bir sütuna kopyalamak istersen ne gibi ilave yapmamız gerekir. Teşekkürler.

 

[Ömer BARAN]

İlgili veriyi boşluk kriterine göre ayırdığımızda;
-- ilk boşluğa kadarki kısmı (parantez içindeki 0 sayısı) tarih olarak C sütununa,
-- ikinci boşluğa kadarki kısmı (parantez içindeki 1 sayısı) da D sütununa,
yazar.

NOT: D sütununa tarihten sonraki ikinci boşluğa kadarki kısmı değil de tarihin sağında kalan metnin tamamını almak için;
aşağıdaki ikinci satır yerine sondaki satırı kullanın.
.

sl.Cells(sat, "C") = CDate(Split(sk.Cells(i, "E"), " ")[B][COLOR="Blue"](0)[/COLOR][/B])
sl.Cells(sat, "D") = Split(sk.Cells(i, "E"), " ")[B][COLOR="red"](1)[/COLOR][/B]

sl.Cells(sat, "D") = Mid(Replace(sk.Cells(i, "E"), Split(sk.Cells(i, "E"), " ")(0), ""), 2, 255)

 

[igultekin2000]

Sorunsuz çalışıyor

İlgili veriyi boşluk kriterine göre ayırdığımızda;
-- ilk boşluğa kadarki kısmı (parantez içindeki 0 sayısı) tarih olarak C sütununa,
-- ikinci boşluğa kadarki kısmı (parantez içindeki 1 sayısı) da D sütununa,
yazar.

NOT: D sütununa tarihten sonraki ikinci boşluğa kadarki kısmı değil de tarihin sağında kalan metnin tamamını almak için;
aşağıdaki ikinci satır yerine sondaki satırı kullanın.
.

sl.Cells(sat, "C") = CDate(Split(sk.Cells(i, "E"), " ")[B][COLOR="Blue"](0)[/COLOR][/B])
sl.Cells(sat, "D") = Split(sk.Cells(i, "E"), " ")[B][COLOR="red"](1)[/COLOR][/B]

sl.Cells(sat, "D") = Mid(Replace(sk.Cells(i, "E"), Split(sk.Cells(i, "E"), " ")(0), ""), 2, 255)

Sorunsuz çalışıyor, teşekkürler, iyi çalışmalar.