userform açıldığında b sütunundaki boş satırı seçsin

[bilisim2010]

merhaba userform açıldığında b sütunundaki boş hücreyi seçsin b sütunu şart a değil c değil sadece b aşağıdaki kodlar ile userformun açılışta yaptırdığım işlemler gösterilmektedir. bunlara boş satırı seçtirmeyi eklerseniz sevinirim hocam.


Private Sub UserForm_Activate()
Label10.Enabled = False
ComboBox1.RowSource = "'ALİS'!h2:h8"
Application.Goto Sheets("ALİS").Range("b2")
End Sub

 

[Biolightant]

Merhaba,

Açıklama:
B sütununda en alt satırda ki hücreye gidiyor
Sonra yukarıya doğru çıkıp ilk dolu hücreyi bulup +1 altına iniyor.
Bu sayede Enson boş B hücresini bulmuş oluyor.

Kodlarınızın sonuna ekleyiniz.

Dim SonBosB As Long
SonBosB = Cells(Rows.Count, "B").End(xlUp).Row + 1
Cells(SonBosB, "B").Select

 

[bilisim2010]

Merhaba,

Açıklama:
B sütununda en alt satırda ki hücreye gidiyor
Sonra yukarıya doğru çıkıp ilk dolu hücreyi bulup +1 altına iniyor.
Bu sayede Enson boş B hücresini bulmuş oluyor.

Kodlarınızın sonuna ekleyiniz.

Dim SonBosB As Long
SonBosB = Cells(Rows.Count, "B").End(xlUp).Row + 1
Cells(SonBosB, "B").Select

süpersiniz hocam teşekkürler

 

[bilisim2010]

Merhaba,

Açıklama:
B sütununda en alt satırda ki hücreye gidiyor
Sonra yukarıya doğru çıkıp ilk dolu hücreyi bulup +1 altına iniyor.
Bu sayede Enson boş B hücresini bulmuş oluyor.

Kodlarınızın sonuna ekleyiniz.

Dim SonBosB As Long
SonBosB = Cells(Rows.Count, "B").End(xlUp).Row + 1
Cells(SonBosB, "B").Select

Dim ws As Worksheet
Dim wt As Worksheet
Dim wp As Worksheet
Dim SonBosB As Long

Dim comboSelection As String
Dim textbox1Value As String
Dim textbox2Value As String
Dim textbox4Value As String


Dim i As Integer



Set ws = ThisWorkbook.Sheets("ALİS")
Set wt = ThisWorkbook.Sheets("KODLAR")





comboSelection = ComboBox1.Value
textbox1Value = TextBox1.Value
textbox2Value = TextBox2.Value
textbox4Value = TextBox4.Value


SonBosB = ws.Cells(Rows.Count, "b").End(xlUp).Row + 1
Cells(SonBosB, "B").Select
SonBosB = wt.Cells(Rows.Count, "b").End(xlUp).Row + 1
Cells(SonBosB, "B").Select






ws.Cells(SonBosB, "E").Value = textbox1Value
ws.Cells(SonBosB, "B").Value = textbox2Value
ws.Cells(SonBosB, "d").Value = textbox4Value
ws.Cells(SonBosB, "C").Value = comboSelection

wt.Cells(SonBosB, "E").Value = textbox1Value
wt.Cells(SonBosB, "B").Value = textbox2Value
wt.Cells(SonBosB, "d").Value = textbox4Value
wt.Cells(SonBosB, "C").Value = comboSelection





ComboBox1.Value = ""
TextBox1.Value = ""
TextBox2.Value = ""
TextBox4.Value = ""

MsgBox "İşlem Tamamlandı!", vbInformation
[B65536].End(xlUp).Offset(1, 0).Select


hocam merhaba bu kod aşağıdan yukarı tarıyor en üstten en son boşu seçiyorsa neden b2 de dolu olanın üzerine yazdırıyor? ben çözemedim bu işi normal şartlarda b3 den yazması lazım ama gidip b2 dekinin üzerine yazıyor çözemedim gitti bu işi hocam ya

 

[Biolightant]

Aşağıda ki Kodlarınızın bulunduğu bölümü

''''''''''''''''''''''''

SonBosB = ws.Cells(Rows.Count, "b").End(xlUp).Row + 1
Cells(SonBosB, "B").Select
SonBosB = wt.Cells(Rows.Count, "b").End(xlUp).Row + 1
Cells(SonBosB, "B").Select


ws.Cells(SonBosB, "E").Value = textbox1Value
ws.Cells(SonBosB, "B").Value = textbox2Value
ws.Cells(SonBosB, "d").Value = textbox4Value
ws.Cells(SonBosB, "C").Value = comboSelection

wt.Cells(SonBosB, "E").Value = textbox1Value
wt.Cells(SonBosB, "B").Value = textbox2Value
wt.Cells(SonBosB, "d").Value = textbox4Value
wt.Cells(SonBosB, "C").Value = comboSelection

''''''''''''''''''''''''

Bu kodlarla değiştirerek test ediniz.

''''''''''''''''''''''''

SonBosB = ws.Cells(Rows.Count, "B").End(xlUp).Row + 1
ws.Cells(SonBosB, "E").Value = textbox1Value
ws.Cells(SonBosB, "B").Value = textbox2Value
ws.Cells(SonBosB, "d").Value = textbox4Value
ws.Cells(SonBosB, "C").Value = comboSelection

SonBosB = wt.Cells(Rows.Count, "B").End(xlUp).Row + 1
wt.Cells(SonBosB, "E").Value = textbox1Value
wt.Cells(SonBosB, "B").Value = textbox2Value
wt.Cells(SonBosB, "d").Value = textbox4Value
wt.Cells(SonBosB, "C").Value = comboSelection

''''''''''''''''''''''''

 

[bilisim2010]

Aşağıda ki Kodlarınızın bulunduğu bölümü

''''''''''''''''''''''''

SonBosB = ws.Cells(Rows.Count, "b").End(xlUp).Row + 1
Cells(SonBosB, "B").Select
SonBosB = wt.Cells(Rows.Count, "b").End(xlUp).Row + 1
Cells(SonBosB, "B").Select


ws.Cells(SonBosB, "E").Value = textbox1Value
ws.Cells(SonBosB, "B").Value = textbox2Value
ws.Cells(SonBosB, "d").Value = textbox4Value
ws.Cells(SonBosB, "C").Value = comboSelection

wt.Cells(SonBosB, "E").Value = textbox1Value
wt.Cells(SonBosB, "B").Value = textbox2Value
wt.Cells(SonBosB, "d").Value = textbox4Value
wt.Cells(SonBosB, "C").Value = comboSelection

''''''''''''''''''''''''

Bu kodlarla değiştirerek test ediniz.

''''''''''''''''''''''''

SonBosB = ws.Cells(Rows.Count, "B").End(xlUp).Row + 1
ws.Cells(SonBosB, "E").Value = textbox1Value
ws.Cells(SonBosB, "B").Value = textbox2Value
ws.Cells(SonBosB, "d").Value = textbox4Value
ws.Cells(SonBosB, "C").Value = comboSelection

SonBosB = wt.Cells(Rows.Count, "B").End(xlUp).Row + 1
wt.Cells(SonBosB, "E").Value = textbox1Value
wt.Cells(SonBosB, "B").Value = textbox2Value
wt.Cells(SonBosB, "d").Value = textbox4Value
wt.Cells(SonBosB, "C").Value = comboSelection

''''''''''''''''''''''''

harika çok teşekkür ederim işimi gördü