aydgur
Altın Üye
- Katılım
- 31 Ekim 2005
- Mesajlar
- 451
- Excel Vers. ve Dili
- Excel 2007 Türkçe
- Altın Üyelik Bitiş Tarihi
- 04-03-2028
Private Sub CommandButton2_Click()
Dim iListCount As Integer, iColCount As Integer
Dim iRow As Integer
Dim rStartCell As Range
Set rStartCell = Sheets("T_680").Range("B2").End(xlUp).Offset(1, 0)
For iListCount = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(iListCount) = True Then
ListBox1.Selected(iListCount) = False
iRow = iRow + 1
For iColCount = 0 To Range("AÇIK!A2:J2000").Columns.Count - 1
rStartCell.Cells(iRow, iColCount + 1).Value = _
ListBox1.List(iListCount, iColCount)
Next iColCount
End If
Next iListCount
Set rStartCell = Nothing
UserForm2.Show
End Sub
İyi günler! Bu kodda aktarılanlar T_680 sayfasnın ilk boş satırından itibaren olması için hangi değişiklik gerekli yardımcı olabilirmisiniz ? teşekkür ederim.
Dim iListCount As Integer, iColCount As Integer
Dim iRow As Integer
Dim rStartCell As Range
Set rStartCell = Sheets("T_680").Range("B2").End(xlUp).Offset(1, 0)
For iListCount = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(iListCount) = True Then
ListBox1.Selected(iListCount) = False
iRow = iRow + 1
For iColCount = 0 To Range("AÇIK!A2:J2000").Columns.Count - 1
rStartCell.Cells(iRow, iColCount + 1).Value = _
ListBox1.List(iListCount, iColCount)
Next iColCount
End If
Next iListCount
Set rStartCell = Nothing
UserForm2.Show
End Sub
İyi günler! Bu kodda aktarılanlar T_680 sayfasnın ilk boş satırından itibaren olması için hangi değişiklik gerekli yardımcı olabilirmisiniz ? teşekkür ederim.