ComboBox dan Textbox a Veri Çekme

[undenim]

Merhabalar;

Küçük bir hesaplama yapıyorum, combobox a rawSource ekledim, bu veriler seçildiğinde ilgili tanımların textbox lara düşmesini istiyorum ancak gerekli kodları bulamadım.
bu konuda yardım rica edebilir miyim? Dosya ekleyemedim, aşağıda anlatmaya çalışıyorum

ComboBox Raw Source G3:G112
Textbox1 de istenen H3:H112
Textbox2 de istenen I3:I112
Sayfa3

 

[Ömer]

Merhaba,
Bu şekilde deneyin.

Private Sub ComboBox1_Change()
    Dim s As Integer
    s = ComboBox1.ListIndex + 3
    TextBox1 = Sheets("Sayfa3").Range("H" & s)
    TextBox2 = Sheets("Sayfa3").Range("I" & s)
End Sub

 

[undenim]

CEvap için teşekkür ederim, belki çok basit bişey ama yeni olduğumuz için göremiyoruz hatayı.
TextBox1 = Sheets("Sayfa3").Range("H" & s) da debug verdi

 

[Ömer]

https://www.dosya.tc

Linke örnek bir dosya yükleyip, yükleme linkini paylaşır mısınız.

 

[undenim]

https://s4.dosya.tc/server7/qc0c1n/TASIMA_HESAP_.xlsm.html

 

[Ömer]

Sayfa3 adında sayfada yazılacak diye anlamıştım.

Kodları aşağıdaki gibi değiştirin.

Private Sub ComboBox1_Change()
    Dim s As Integer
    s = ComboBox1.ListIndex + 3
    TextBox1 = Sheets("Motor Fiyatları").Range("H" & s)
    TextBox2 = Sheets("Motor Fiyatları").Range("I" & s)
End Sub

 

[undenim]

Teşekkür ediyorum şimdi oldu.

 

[undenim]

https://s2.dosya.tc/server11/1tbyk8/TASIMA_HESAP_.xlsm&2901012

merhaba, linkde görünen çalışmaya göz atabilir misiniz lütfen. Dört işlemde bir hata var ama çözemedim.
Sonuç = s2 * s4 + s3 + s1

 

[Ömer]

Yanlış linki eklemişsiniz.

 

[undenim]

https://www.dosya.tc/server23/yb8il7/TASIMA_HESAP_.xlsm.html

 

[undenim]

Hocam Günaydın;

aşağıdaki formül ile dosyadan resim çekmek istiyorum ancak başarılı olmadıd formul.
Rica etsem bakabilir misiniz_?

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, [r5]) Is Nothing Then Exit Sub

'Hata Kontrolü
On Error GoTo Çıkış
'Resimleri Sil

ActiveSheet.DrawingObjects.Delete
'Resim yolunun bulunması

Dim ResimYolu As Variant
Dim Resim As Object

ResimYolu = ActiveWorkbook.Path & "\" & Range("d5") & ".jpg"

'Resmi Oluştur
Set Resim = ActiveSheet.Pictures.Insert(ResimYolu)

'Resmi Boyutlandır

With Range("d5")
Resim.Top = .Top
Resim.Left = .Left
Resim.Height = .Height
Resim.Width = .Width
End With


Çıkış:
End Sub

 

[EmrExcel16]

Merhaba son sorduğunuz soru ile konu başlığı farklı , lütfen sorunuzu uygun konu başlığı altında sorunuz , yada yeni bir konu açarak da sorabilirsiniz.

Not : verdiğiniz kodlarda çalışmaması için bir problem gözükmüyor.

 

[asdsxx]

Combobox'a sayfayı süz yaptıktan sonraki sütunda kalan dolu hücreleri Listelettirmek için bir kod mu lazım yoksa Raw sorge kısmına bir ayar mı yapmak lazım

 

[asdsxx]

Yukarıdaki mesajın aynısını yani combobox yerine listbox a excel sayfasındaki veri süzüldükten sonra sütunda kalan hücreleri listeletmek için ne yapmak lazım
Selamlar...

 

[EmrExcel16]

Yukarıdaki mesajın aynısını yani combobox yerine listbox a excel sayfasındaki veri süzüldükten sonra sütunda kalan hücreleri listeletmek için ne yapmak lazım
Selamlar...

Aşağıdaki kodlar ile Listbox ' a sayfa üzerindeki filtreli bilgileri gösterebilirsiniz.

Private Sub UserForm_Initialize()
    Dim rng As Range, rngCell As Range
    Set rng = Range("A2:A50").SpecialCells(xlCellTypeVisible)
    With ListBox1
        .Clear
        .RowSource = ""
    End With
    For Each rngCell In rng
        ListBox1.AddItem rngCell.Value
    Next rngCell
End Sub

 

[asdsxx]

Emre Bey teşekkürler yardımlarınız ile sorun çözüldü.

 

[EmrExcel16]

Emre Bey teşekkürler yardımlarınız ile sorun çözüldü.

Rica ederim , iyi çalışmalar .