Lİstboxtakİ Verİlerİ Excele Aktarma

[AKTAY27]

merhaba arkadaşlar

textbox1 yazdığım kritere göre arama yapıp listboxa firma listesinin gelmesini ve listboxta listelenen firma listesinin sadece firma ünvanı üzerine tek tıkladığım zaman o firmaya ait firma ünvanı+vergi dairesi+vergi no verilerinin ind.kdv.listesi sayfasında ı sütunun aktif olan satıra yazmasını istiyorum.

ind.kdv.listesi sayfasında ı sütununda + işaretini bastığım zaman userformun açılmasını istiyorum.
teşekkürler

arkadaşlar biliyorum fazla oluyorum ama 1 haftadır denemediğim kalmadı ve biyerlerde mutlaka hata veriyor kafam allak bullak oldu sizden başka başvurcağım kimse yok şimdiden yardım eden arkadaşlara teşekkür ederim.

 

[altanson]

Makro ile nasıl yapılır bilmiyorum ama alternatif olması için söyle basit bir örnek hazırladım;

 

[AKTAY27]

Sayin Altansoy İlgİnİz İÇİn SaĞolun Şuan Zaten FormÜlle İŞlem Yapiyorum İŞlem Ve Zaman AÇisinda KÜlfetlİ OlduĞu İÇİn Macro Olmasini İstİyorum Yİnede İlgİnİze TeŞekkÜrler

 

[altanson]

hemşerime bir yardımım dokunsun istemiştim, kısmet değilmiş bir daha ki sefere umarım.

 

[N.Ziya Hiçdurmaz]

yanıt

+'yı excel formül başlangıcı olarak kabul eder bunun yerine ı hücrelerinden istediğinize çift tıklayınız.

Private Sub ListBox1_Click()
TextBox2 = ListBox1
For sut = 1 To Sheets("FİRMALAR").[b65536].End(3).Row
If Sheets("FİRMALAR").Range("b" & sut) = TextBox2 Then
TextBox3 = Sheets("FİRMALAR").Range("c" & sut)
TextBox4 = Sheets("FİRMALAR").Range("d" & sut)
End If
Next
ActiveCell.Offset(0, 0) = TextBox2
ActiveCell.Offset(0, 1) = TextBox3
ActiveCell.Offset(0, 2) = TextBox4
End Sub

Private Sub TextBox1_Change()
ListBox1.ColumnCount = 3
ListBox1.ColumnWidths = "200;75;75"
ListBox1.Clear
For sut = 1 To Sheets("FİRMALAR").[b65536].End(3).Row
If Sheets("FİRMALAR").Range("b" & sut) Like TextBox1 & "*" Then
ListBox1.AddItem
ListBox1.List(s, 0) = Sheets("FİRMALAR").Range("b" & sut)
ListBox1.List(s, 1) = Sheets("FİRMALAR").Range("c" & sut)
ListBox1.List(s, 2) = Sheets("FİRMALAR").Range("d" & sut)
s = s + 1
End If
Next
End Sub
Private Sub UserForm_Initialize()
TextBox1 = "."
TextBox1 = ""
End Sub

 

[AKTAY27]

ELİNİZE SAĞLIK V.Basic For Applications
MUHTEŞEM OLMUŞ TAM İSTEDİĞİM GİBİ SİZDEN VE DİĞER ARKADAŞLARDAN ÖĞRENDİKLERİME BİR YENİSİ DAHA EKLENMİŞ OLDU
SAYGILARIMLA İYİ ÇALIŞMALAR