Soru ListBox'ta bulunan çoklu değerleri sutüna aktarırken hata

seckinb

Altın Üye
Katılım
9 Aralık 2018
Mesajlar
363
Excel Vers. ve Dili
Excel 2019 - 32 bit TR
Merhaba

Private Sub submit_Click()
Dim ssheet As Worksheet
Set ssheet = ThisWorkbook.Sheets("Doz")

nr = ssheet.Cells(Rows.count, 1).End(xlUp).Row + 1

deg = ""

For i = 0 To LB2.ListCount - 1
If LB2.Selected(i) = True Then
deg = deg & "," & LB2.List(i, 0)
End If
Next i

ssheet.Cells(nr, 1) = CInt(Me.tbKur)
ssheet.Cells(nr, 2) = CDate(Me.DTPick0)
ssheet.Cells(nr, 3) = Me.cmbListItem
ssheet.Cells(nr, 4) = deg
ssheet.Cells(nr, 5) = CDec(Me.tbDOZtoplam)
ssheet.Cells(nr, 6) = CDec(Me.tbDOZ)
ssheet.Cells(nr, 7) = CDec(Me.tbDOZtg)
ssheet.Cells(nr, 8) = CDec(Me.tbACs)

Application.ScreenUpdating = True
Worksheets("Doz").Select
'doz sayfasının veri giriş tuşuna bastığımızda bunu kullanıyoruz.
End Sub
For i = 0 To LB2.ListCount - 1
If LB2.Selected(i) = True Then
deg = deg & "," & LB2.List(i, 0)
End If
Next i

ifadesinde değerlerin başına virgül ekliyorum.
ilk değerin başına virgül eklemesini nasıl engelleyebilirim??

,Segment 1,Segment 2,Segment 3,Segment 4B,Segment 7
şeklinde ekliyor datayı.


teşekkürler
 

Ekli dosyalar

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
5,803
Excel Vers. ve Dili
2019 Türkçe
Merhaba.
Kod:
deg = deg & "," & LB2.List(i, 0)
Satırını silin yerine aşağıdaki satırı kopyalayın.
Kod:
IIf deg = "", LB2.List(i, 0), deg & "," & LB2.List(i, 0)
 

seckinb

Altın Üye
Katılım
9 Aralık 2018
Mesajlar
363
Excel Vers. ve Dili
Excel 2019 - 32 bit TR
Merhaba.
Kod:
deg = deg & "," & LB2.List(i, 0)
Satırını silin yerine aşağıdaki satırı kopyalayın.
Kod:
IIf deg = "", LB2.List(i, 0), deg & "," & LB2.List(i, 0)

merhaba,
bu değişikliği yaptığımda hiçbir şey yazmamaya başladı.
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Buyurun.:cool:
Kod:
For i = 0 To LB2.ListCount - 1
If LB2.Selected(i) = True Then
deg = deg & "," & LB2.List(i, 0)
End If
Next i
deg = Right(deg, Len(deg) - 1)
 

seckinb

Altın Üye
Katılım
9 Aralık 2018
Mesajlar
363
Excel Vers. ve Dili
Excel 2019 - 32 bit TR
Buyurun.:cool:
Kod:
For i = 0 To LB2.ListCount - 1
If LB2.Selected(i) = True Then
deg = deg & "," & LB2.List(i, 0)
End If
Next i
deg = Right(deg, Len(deg) - 1)

Elinize sağlık, kusursuz çalışıyor.
 
Üst