Vnos besedila iz ListBox-a v določeno celico
Vnos besedila iz ListBox-a v določeno celico
Pozdravljen,
naprošam za pomoč kako v spodnjem VBA ukazu natančno definirati točno lokacijo prvega vnosa (želena začetna celica vnosa je A40, končna pa A46). Na spletu sem zasledil rešitev za horizontalni zapis (colums), za vertikalni (rows) pa ne.
VBA koda je sledeča:
Private Sub CommandButton2_Click()
Dim lItem As Long
For lItem = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(lItem) = True Then
Sheet2.Range("A50").End(xlUp)(2, 1) = ListBox1.List(lItem)
ListBox1.Selected(lItem) = False
End If
Next
End Sub
Lep pozdrav in hvala.
naprošam za pomoč kako v spodnjem VBA ukazu natančno definirati točno lokacijo prvega vnosa (želena začetna celica vnosa je A40, končna pa A46). Na spletu sem zasledil rešitev za horizontalni zapis (colums), za vertikalni (rows) pa ne.
VBA koda je sledeča:
Private Sub CommandButton2_Click()
Dim lItem As Long
For lItem = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(lItem) = True Then
Sheet2.Range("A50").End(xlUp)(2, 1) = ListBox1.List(lItem)
ListBox1.Selected(lItem) = False
End If
Next
End Sub
Lep pozdrav in hvala.
Re: Vnos besedila iz ListBox-a v določeno celico
Pozdravljeni,
V zanki se morate pač premikati po vrsticah in ne kolonah:
V zanki se morate pač premikati po vrsticah in ne kolonah:
Koda: Izberi vse
Private Sub CommandButton2_Click()
Dim lItem As Long
Dim vrstica As Integer: vrstica = 0
For lItem = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(lItem) = True Then
Sheet2.Range("A40").Offset(vrstica, 0) = ListBox1.List(lItem)
ListBox1.Selected(lItem) = False
vrstica = vrstica + 1
End If
Next
End Sub
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator
Re: Vnos besedila iz ListBox-a v določeno celico
Hvala za pomoč. Deluje.
Re: Vnos besedila iz ListBox-a v določeno celico
Mi lahko prosim pomagate še pri tej zadevi in sicer: ko zaženem VBA ukaz mi vnese izbrano besedilo iz ListBox-a a mi izbriše že predhodno izpolnjene celice in sicer od celice A46 naprej. Kako bi rešil to zadevo, da ob izboru in s tem prepisu iz ListBox-a briše celice le od A40 do A46.
VBA koda
Private Sub btnDodajS_Click()
Application.ScreenUpdating = False
Dim i As Integer
Dim lastrow As Long
Range("A40:i" & Rows.Count).ClearContents
i = 40
With lstStoritve
For intItem = 0 To .ListCount - 1
If .Selected(intItem) = True Then
Cells(i, 1).Value = .Column(0, intItem)
i = i + 1
End If
Next intItem
End With
lastrow = Range("A" & Rows.Count).End(xlUp).Row
Application.ScreenUpdating = True
End Sub
Še enkrat hvala.
VBA koda
Private Sub btnDodajS_Click()
Application.ScreenUpdating = False
Dim i As Integer
Dim lastrow As Long
Range("A40:i" & Rows.Count).ClearContents
i = 40
With lstStoritve
For intItem = 0 To .ListCount - 1
If .Selected(intItem) = True Then
Cells(i, 1).Value = .Column(0, intItem)
i = i + 1
End If
Next intItem
End With
lastrow = Range("A" & Rows.Count).End(xlUp).Row
Application.ScreenUpdating = True
End Sub
Še enkrat hvala.
Re: Vnos besedila iz ListBox-a v določeno celico
Pozdravljeni,
popraviti morate pač vrstico, kjer se vprašate ali podatek zapišete ali ne in sicer;
Namesto:
Morate pač zapsati
PS: Prosim vas, da za programsko kodo uporabite opcijo Code
popraviti morate pač vrstico, kjer se vprašate ali podatek zapišete ali ne in sicer;
Namesto:
Koda: Izberi vse
If .Selected(intItem) = True Then
Koda: Izberi vse
If .Selected(intItem) = True and i < 47 Then
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator
Re: Vnos besedila iz ListBox-a v določeno celico
Pozdravljeni, obveščam Vas, da mi pri zadnji varianti mi še vedno izbriše že predhodno izpolnjene celice in sicer od celice A47 naprej. Kaj storiti?
Zahvaljujem se vam za vaš trud.
Zahvaljujem se vam za vaš trud.
Re: Vnos besedila iz ListBox-a v določeno celico
"Moja zadnja varianta" nima s tem nobene zveze... Na vrhu makra vi pač pobrišete celotno kolono od A40 dalje_hopla1234 napisal/-a:Pozdravljeni, obveščam Vas, da mi pri zadnji varianti mi še vedno izbriše že predhodno izpolnjene celice in sicer od celice A47 naprej.
Koda: Izberi vse
Range("A40:i" & Rows.Count).ClearContents
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator
Re: Vnos besedila iz ListBox-a v določeno celico
Hvala. Dela.