VBA İLE DÜŞEYARA UYGULAMASI

[Feylosof]

Merhaba, güzel bir gün diliyorum herkese
Program sayfasındaki son dolu veriyi Liste sayfasında aynı verinin bir satır altındaki veriyi textboxlara aktarmak istiyorum. uygun bir örneği forumda bulamadım.
İyi çalışmalar diliyorum.

 

[muygun]

Merhaba;
Eki deneyin.
İyi çalışmalar.

 

[ÖmerFaruk]

Cevap gelmiş ancak yine de hazır yazmışken paylaşayım.

Private Sub UserForm_Initialize()
Dim Bul As Range
Aranan = Worksheets("PROGRAM").Range("D" & Rows.Count).End(3)
Set Bul = Worksheets("LİSTE").Range("C:C").Find(Aranan, , xlValues, xlWhole)
If Bul Is Nothing Then Exit Sub
If Bul.Offset(1, 0) = "" Then Set Bul = Worksheets("LİSTE").Range("C2")
TextBox1 = Bul.Offset(1, -1)
TextBox2 = Bul.Offset(1, 0)
TextBox3 = Bul.Offset(1, 1)
Set Bul = Nothing
End Sub

 

[Feylosof]

Merhaba;
Eki deneyin.
İyi çalışmalar.

Sayın @muygun çok teşekkür ederim. Emeğinize sağlık.

 

[Feylosof]

Cevap gelmiş ancak yine de hazır yazmışken paylaşayım.

Private Sub UserForm_Initialize()
Dim Bul As Range
Aranan = Worksheets("PROGRAM").Range("D" & Rows.Count).End(3)
Set Bul = Worksheets("LİSTE").Range("C:C").Find(Aranan, , xlValues, xlWhole)
If Bul Is Nothing Then Exit Sub
If Bul.Offset(1, 0) = "" Then Set Bul = Worksheets("LİSTE").Range("C2")
TextBox1 = Bul.Offset(1, -1)
TextBox2 = Bul.Offset(1, 0)
TextBox3 = Bul.Offset(1, 1)
Set Bul = Nothing
End Sub

Sayın @ÖmerFaruk üstadım. yine hızır gibisiniz. Çok teşekkürler.