userform aktarılacak hücre yerini değiştirme

[aydgur]

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
Bu kodda ("T_680")sayfasının B2 den itibaren değilde ilk boş satırdan itibaren nasıl yapabilirim

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki satırı bir sonraki kırmızı renkli satır ile değiştirip denermisiniz.

Set rStartCell = Sheets("T_680").Range("B65536").End(3).Offset(1, 0)

[B][COLOR=red]Set rStartCell = Sheets("T_680").Range("B65536").End(3).Offset(1, 0)[/COLOR][/B]

 

[aydgur]

teşekkür ederim .Peki userform a aktarırken sadece K sutunu boş olanları nasıl ekleyebilirim ?

 

[Korhan Ayhan]

Selamlar,

Sorunuzu örnek dosya ekleyerek açıklarsanız daha sağlıklı olacaktır.

 

[aydgur]

rivate Sub UserForm_Initialize()
ListBox1.RowSource = "AÇIK!A2:J2000"
ListBox1.ColumnCount = 10
ListBox1.ColumnWidths = 30 & ";" & 60 & ";" & 60 & ";" & 60 & ";" & 40 & ";" & 40
ListBox1.ColumnHeads = False
End Sub
Bu kodda AÇIK sayfasının A2:J2000 arası yerine ;eğer K sütunu boşsa A2:A2000 yapabilirmiyim

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki şekilde denermisiniz.

Private Sub UserForm_Initialize()
    If WorksheetFunction.CountA(Sheets("AÇIK").Columns("K")) = 0 Then
    ListBox1.RowSource = "AÇIK!A2:A2000"
    ListBox1.ColumnCount = 1
    ListBox1.ColumnWidths = 30
    ListBox1.ColumnHeads = False
    Else
    ListBox1.RowSource = "AÇIK!A2:J2000"
    ListBox1.ColumnCount = 10
    ListBox1.ColumnWidths = 30 & ";" & 60 & ";" & 60 & ";" & 60 & ";" & 40 & ";" & 40
    ListBox1.ColumnHeads = False
    End If
End Sub