farklı dosyadan textbox'a veri almak

[cem yılmaz]

Merhabalar,

2 adet dosyam var ve birinci dostamdaki textboxların içine veri adlı dosyamdan veri aldırmak istiyorum.Bunu textbox'un control source özelliğine adres belirterek yaptım ama veri değiştikçe güncelleme yapmıyor.Bu olayı kod şeklinde veya textbox özelliklerinde değişiklik yaparak oluşturabilirmiyiz?

 

[Orion1]

Her 2 dosyada ayni klasörde olmalı.
Kaynak dosyanının adı VERİ olmalı.
Userformun olduğu dosyanın intialize olayına aşağıdaki kodları yapıştırınız.

Private Sub UserForm_Initialize()
Dim yol, a1, b1 As String
yol = ThisWorkbook.Path & "\"
a1 = Application.ExecuteExcel4Macro("'" & yol & "[VERİ.xls]DATA'!R1C1")
TextBox1.Text = a1
b1 = Application.ExecuteExcel4Macro("'" & yol & "[VERİ.xls]DATA'!R1C2")
TextBox2.Text = b1
End Sub

 

[cem yılmaz]

Dediğiniz kodu userform2'nin initalize olayına yapıştırdım ama bu seferde "userform2.show" kodu hata verdi.istediğimi gerçek dosyalarımla birlikte gönderiyorum.Bakabilirmisiniz?

 

[Orion1]

Dediğiniz kodu userform2'nin initalize olayına yapıştırdım ama bu seferde "userform2.show" kodu hata verdi.istediğimi gerçek dosyalarımla birlikte gönderiyorum.Bakabilirmisiniz?

Elbette hata verecektir.
Çünkü Userform2'de Textbox1 ve textbox2 isimli textbox nesneniz yok.!

 

[cem yılmaz]

Evet Hata yapmışım.Bu sefer vermiş olduğunuz kodları ekledim bunu 30 adet textbox için uyarladım.yalnız textboxların içinde hiç rakam yok sıfır olarak gözüküyor.Acaba başka sayfadan okuttuğumuz için olabilirmi?
Uyarlanmış dosyam ektedir.Tekrar Bakarmısınız?

 

[cem yılmaz]

"[VERİ.xls]DATA'!R1C1")
"[VERİ.xls]DATA'!R1C2")
"[VERİ.xls]DATA'!R1C3")
"[VERİ.xls]DATA'!R1C4")

Bu kısımda hata yaptığımı düşünüyorum olabilirmi

 

[cem yılmaz]

buldum evren hocam ;

"[VERİ.xls]DATA'!R1C1")

R1 :Satır numarası
C1: Sütun numarasıymış

fakat problem şu veriyi otomatik olarak aldıramıyorum yani veri adlı dosyayı açmadan veriler otomatik olarak alınmıyor?

 

[Orion1]

buldum evren hocam ;

"[VERİ.xls]DATA'!R1C1")

R1 :Satır numarası
C1: Sütun numarasıymış

fakat problem şu veriyi otomatik olarak aldıramıyorum yani veri adlı dosyayı açmadan veriler otomatik olarak alınmıyor?

VERİ dosyasını açmadan otomatik alması gererkiyor.
R1 = 1nci satır
C1 = 1nci kolon
R1C1=A1
Bu duruma göre kodlarınızı düzenleyiniz.

 

[cem yılmaz]

teşekkür ederim evren hocam sağolun

 

[Orion1]

teşekkür ederim evren hocam sağolun

Rica ederim.
iyi çalışmalar.