Combobox tan veri alma

[RONIN1]

Merhaba

Aramada bulamadığım için yeni konu ile yardımınızı rica edeceğim dosya ektedir.

Comboboxların içindeki verileri değer olarak bulundukları hücrelere nasıl yapıştıracağım konusunda yardımcı olabilirmisiniz?

İyi çalışmalar

 

[RONIN1]

Tekrar merhaba

Ricamı tekrar edebilirmiyim.

İyi çalışmalar

 

[Ömer]

Merhaba,

Sorunuz tam olarak anlaşılmıyor, Combobox dan kastınız E sütunundaki nesneler mi?

 

[mancubus]

web sayfasından kopyala yapıştır yapılmış görünüyor.
web'den data almanın yöntemleri üzerinde çalışmak bana göre daha doğru olurdu.

aşağıdaki kod işinize yarar.
birinci döngüde metinler hücrelere yazdırılıyor. 2.de nesnelerin tamamı siliniyor.

Sub HTMLTextBoxYazSil()
    Dim ws As Worksheet
    Dim obj As OLEObject
    
    Set ws = Sheets("Sheet1")
    With ws
        For Each obj In .OLEObjects
            If TypeName(obj.Object) = "HTMLText" Then
                obj.TopLeftCell = obj.Object.Value
            End If
        Next
        For Each obj In .OLEObjects
            obj.Delete
        Next
    End With
End Sub

 

[RONIN1]

Merhaba Mancubus

bu küçük örnekte denedim oldu. Dosya daha komplike olduğundan sorun çıkarsa tekrar yazarım ama sanmıyorum ki bir sorun çıksın. İlginize teşekkür ederim.

Ömer bey size de zaman ayırdığınız için ayrıca teşekkür ederim.

iyi çalışmalar