Text Box a ilgili hücre karşılığından veri yazdırmak sorusu.

[darkvenue]

Merhabalar
İngilizce Kelime Ezberleme ve Çalışma ile ilgili bulmuş olduğum bir makro çalışmasına bir kaç ilave yapmak istiyorum.
Ekteki dosyada yer alan userform da Örnek Cümle ve Örnek Cümle Çevirisi kısımlarına excel sözlük sayfasında yer alan kelimelerin karşılığına göre D ve E Hücrelerinde yer alan değerlerin Yazılması için ekteki dosyadaki kodlara ilave yapılmasına ihtiyacım vardır.

Teşerkkür ederim.

 

[Ömer BARAN]

Merhaba.
UserForm kodlarını açıp aşağıdaki kırmızı satırları araya yapıştırınız.
4 > D sütunu, 5 > E sütunu oluyor.

[COLOR="SeaGreen"]'\\ Havuzdan değerleri alıyoruz.[/COLOR]
With Csf
  Sonsat = .Cells(65536, 1).End(3).Row
  dataEngKelime = BenzersizRastgeleSayilar(1, 2, Sonsat, enCevapHayır)
  lngSmdEngInd = dataEngKelime(1)
  strTrkKelime = .Cells(lngSmdEngInd, 2).Value
[COLOR="Red"][B]  TextBox1 = .Cells(lngSmdEngInd, 4).Value
  TextBox2 = .Cells(lngSmdEngInd, 5).Value
[/B][/COLOR]  txtSoru.Value = .Cells(lngSmdEngInd, 1).Value
  konus.Speak txtSoru.Text
  TxtOkunus.Value = .Cells(lngSmdEngInd, 3).Value

 

[darkvenue]

Çok teşekkür ederim.

 

[ozcandenizocn]

Merhaba oluşturmuş olduğunuz makroyu bana da gönderebilir misiniz