seckinb
Altın Üye
- Katılım
- 9 Aralık 2018
- Mesajlar
- 363
- Excel Vers. ve Dili
- Excel 2019 - 32 bit TR
Merhaba
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??
teşekkürler
For i = 0 To LB2.ListCount - 1Private 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
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??
şeklinde ekliyor datayı.,Segment 1,Segment 2,Segment 3,Segment 4B,Segment 7
teşekkürler
Ekli dosyalar
-
16.9 KB Görüntüleme: 8