Cells(bul.Row, "c")

[ozbinici07]

.TextBox2 = Cells(bul.Row, "c")Kodu İle Arabul Yapılırken Açık Olan Sayfada Yapıyor.

Örnek Arama Yapmasını İstediğim Sayfa Adı: (GELEN) ama o an excelde hangi sayfa açıksa o sayfada arabul yapıp texbox aktarıyor.

 

[Orion1]

.TextBox2 = Cells(bul.Row, "c")Kodu İle Arabul Yapılırken Açık Olan Sayfada Yapıyor.

Örnek Arama Yapmasını İstediğim Sayfa Adı: (GELEN) ama o an excelde hangi sayfa açıksa o sayfada arabul yapıp texbox aktarıyor.

Bu satırla beraber 3-4 satır öcesinden itibaren olan kodlarıda yazmanız lazım.

 

[ozbinici07]

Bu satırla beraber 3-4 satır öcesinden itibaren olan kodlarıda yazmanız lazım.

Private Sub ListBoxGiden_Click()
Set bul = Sheets("Giden").Range("A:AB").Find(ListBoxGiden.Column(0), lookat:=xlWhole)
If Not bul Is Nothing Then
sirano = ListBoxGiden.Column(0)
yontem = "degistir"
With Giden
.TextBox2 = Cells(bul.Row, "c")
.TextBox3 = Cells(bul.Row, "d")
.ComboBox4 = Cells(bul.Row, "e")
.TextBox5 = Cells(bul.Row, "f")
.TextBox6 = Cells(bul.Row, "g")
.ComboBox7 = Cells(bul.Row, "h")
.TextBox8 = Cells(bul.Row, "ı")
.TextBox9 = Cells(bul.Row, "j")
.ComboBox10 = Cells(bul.Row, "k")
.ComboBox11 = Cells(bul.Row, "l")
.ComboBox12 = Cells(bul.Row, "m")
.ComboBox13 = Cells(bul.Row, "n")
.ComboBox14 = Cells(bul.Row, "o")
.ComboBox15 = Cells(bul.Row, "p")
.TextBox16 = Cells(bul.Row, "q")
.ComboBox17 = Cells(bul.Row, "r")
.TextBox18 = Cells(bul.Row, "s")
.TextBox19 = Cells(bul.Row, "t")
.TextBox20 = Cells(bul.Row, "u")
.ComboBox21 = Cells(bul.Row, "v")
.TextBox22 = Cells(bul.Row, "w")
.TextBox23 = Cells(bul.Row, "x")
.TextBox24 = Cells(bul.Row, "y")
.TextBox25 = Cells(bul.Row, "z")
.TextBox26 = Cells(bul.Row, "aa")
.TextBox27 = Cells(bul.Row, "ab")
End With
End If
End Sub




Arabul Yaparken GİDEN Sayfası Seçili Ama Textbox a veriyi aktarırken O an açık olan Sayfadan Aktarıyor

 

[Orion1]

buyurun.

Set bul = Sheets("[B][COLOR="Red"]GELEN[/COLOR][/B]").Range("A:AB").Find(ListBoxGiden.Co lumn(0), lookat:=xlWhole)

 

[ozbinici07]

buyurun.

Set bul = Sheets("[B][COLOR="Red"]GELEN[/COLOR][/B]").Range("A:AB").Find(ListBoxGiden.Co lumn(0), lookat:=xlWhole)

Yok Sorun Onda Değil Orası Doğru Fakat Listboxdan Textbox veriyi aktarırken herhangi bir sayfa belirtilmemiş ben onu belirtmek istiyorum yoksa açık olan sayfa hangisi ise ondan alıyor

 

[Orion1]

Yok Sorun Onda Değil Orası Doğru Fakat Listboxdan Textbox veriyi aktarırken herhangi bir sayfa belirtilmemiş ben onu belirtmek istiyorum yoksa açık olan sayfa hangisi ise ondan alıyor

Anlamadım.Ama aşağıdaki kodu deneyin isterseniz.

.TextBox2 = [B][COLOR="Red"]sheets("GELEN").[/COLOR][/B]Cells(bul.Row, "c")

 

[ozbinici07]

Anlamadım.Ama aşağıdaki kodu deneyin isterseniz.

.TextBox2 = [B][COLOR="Red"]sheets("GELEN").[/COLOR][/B]Cells(bul.Row, "c")

İstediğim Tam Olarak Buydu :hihoho: Teşekkür Ederim.