Dim d As Long, txt For d = 9 To Range("B65536").End(xlUp).Row + 1
txt = Split(Cells(d, 3).Value, "+") ' pobiera dane z komórki
Cells(d, 4) = txt(0) ' Next d
zabezpiecz kod przed błędami np. dla pustej komórki
napisał: Blaszka_P postów: 112
umieszczony: 26 kwietnia 2011 18:24
Witam
jak zrobić żeby kod wybierał określoną zawartość z tekstu w komórce, jaz zrobiłem to tak ale mam zadeklarowaną na stałe ilość znaków z teststu.
For d = 9 To .Range("B65536").End(xlUp).Row + 1
txt = .Cells(d, 3).Value ' pobiera dane z komurki
Poz = left(txt, 2) ' wybiera pierwsze 2 litery z komurki
next d
chciałbym aby końcowym znakiem do którego kod ma wybierć tekst był znak "+" , spacje muszą być zachowane
np.
Mam dane
1J0 973 715 AD+1J0 063 221
a chciałbym tylko 1J0 973 715 AD