kako prenesem del polja iz ene tabele v drugo.
V neko tabelo prepisujem del vsebine celice (zadnji 8 znakov) iz tabele Konstante011.xlsx.
Zgodi se, da mi vsebino celice pravilni prenese
obenem pa popravi celico iz katere prenašam zadnih 8 znakov.
Hvala za pomoč.
Koda: Izberi vse
Sub MakroTrim()
' Trimanje podatka iz tabele, samo zadnjih 8 znakov iz celice
Dim wb As Workbook ' tu si bomo zapomnili delovni zvezek
Dim polje As String ' delovno polje
Workbooks.Open Filename:="Konstante011.xlsx"
Set wb = ActiveWorkbook ' zapomnimo si kazalec na delovni zvezek
Range("A4").Select
Selection.Copy
polje = Selection
' Selection = Right(Selection, 8) ' <--- napaka, tu spremeni polje v trenutni tabeli
' Selection = Trim(Selection)
polje = Right(polje, 8) ' ???
polje = Trim(polje) ' ???
Windows("Skupna.xls").Activate
Range("D2").Selection
ActiveSheet.Paste
ActiveWorkbook.Close SaveChanges = False
End Sub