tek texbox a hücrelerden veri çekme

[bilisim2010]

merhaba office365 kullanıyorum 1 tane texbox3 üm var yukarıdan aşağıya doğru b5-b6-b7---b96 a kadar seri nolarımı texbox3 ümde nasıl gösterebilirim? hangi hücredeysem oradaki seri numarasının texbox3 de görünmesini istiyorum.

 

[byfika]

Anladığım kadarıyla sayfanızda textbox3 var ve sayfadaki b sütunundaki verilerin üzerine tıklayınca textbox3 de o hücredeki veri görünecek buna göre aşağıdaki kodu sayfanın kod bölümüne yazıp deneyiniz...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Me.Range("B5:B96")) Is Nothing Then
Me.TextBox3.Value = Target.Value
Else
Me.TextBox3.Value = ""
End If
End Sub

 

[bilisim2010]

Anladığım kadarıyla sayfanızda textbox3 var ve sayfadaki b sütunundaki verilerin üzerine tıklayınca textbox3 de o hücredeki veri görünecek buna göre aşağıdaki kodu sayfanın kod bölümüne yazıp deneyiniz...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Me.Range("B5:B96")) Is Nothing Then
Me.TextBox3.Value = Target.Value
Else
Me.TextBox3.Value = ""
End If
End Sub

hocam çok teşekkür ederim

 

[bilisim2010]

hocam çok teşekkür ederim

hocam bu işimi gördü ama birde textbox2 var onada çekmek istiyorum onun hücre no ise C5:C96 bunun için ne yazmalıyım

 

[byfika]

Merhabalar,

''Alttaki kod ile hem textbox2 hem de textbox3 birlikte görülür.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Me.Range("B5:B96")) Is Nothing Then
Me.TextBox3.Value = Target.Value
Else
If Not Intersect(Target, Me.Range("c5:c96")) Is Nothing Then
Me.TextBox2.Value = Target.Value
End If
End If
End Sub

''''Bunda ise biri silinir diğeri görülür:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Me.Range("B5:B96")) Is Nothing Then
Me.TextBox3.Value = Target.Value
Me.TextBox2.Value = ""
Else
Me.TextBox3.Value = ""
If Not Intersect(Target, Me.Range("c5:c96")) Is Nothing Then
Me.TextBox2.Value = Target.Value
Me.TextBox3.Value = ""
End If
End If
End Sub

 

[bilisim2010]

merhaba hocam benim userform1 de listbox var excel deki hücrelerden verileri çekiyorum boş satırada getiriyorum ancak excelde hücreye veri girdikten donra bir alt satıra geçmesine rağmen listbox en üst satıra geçiyor neden acaba?

Private Sub ListBox1_Click()
If ListBox1.RowSource = "" Then
Range("B" & ListBox1.Column(4)).Select
Else
Range("B" & ListBox1.ListIndex + 4).Select
End If

End Sub

bu kodlar ile exceldeki satırların aynısına ulaşabiliyorum ama veri girince en baştaki satıra otomotik geçiyor exceldeki boş satıra inmesini istiyorum listbox satırının.