Bul ve soldakini al Komutu Yardım

[ufukufuk01]

Merhabalar

Aşağıdaki örnek de olduğu gibi her hücrenin içerisinde 50 ibaresi geçmektedir. Döngüye soktuğum zaman aşağıdaki kodum çalışıyor fakat 50 den sonraki sağ taraftaki yazıları getiriyor. RTrim den sonra mid kullandım için oluyor sanırım mid yerine hangi komutu kullanmam gerekiyor. Örneklerde olduğu gibi bana 50(hariç ) ye kadar olan kısım lazım. (Örnek:ayşe ile fatma' nın) sabit bir sayı veremiyorum örnekte görüldüğü gibi 50 sayısı sabit değil hücreye göre değişiyor (satır sayısında )

Tşk.ler

a1 hücresi ( ayşe ile fatma' nın 50 tl si var)
B1 hücresi (leyla'nın 50 Tl si var
C1 hücresi ( hüseyin bakkala giderken yanında 50 tl götürdü)


Application.ActiveSheet.Cells(k + satir - 1, i + 1 + j).Value = RTrim(Mid(Ictext2, WorksheetFunction.Search("50", lcText2) + 1, 15))

 

[Ömer]

Merhaba,

A1 deki değeri istediğiniz gibi B1 hücresine yazar. Siz kendi dosyanıza göre uyarlarsınız.

[B1] = Left([A1], InStr([A1], "50") - Len("50"))

.

 

[ufukufuk01]

Tşk.ler