Userformda Excel açma

[Luckyfran]

Bir userform çalışması yapıyorum

örnekteki gibi userformun olduğu alanda excel sayfasının görülmesini istiyorum imkanı varmı..

 

[leumruk]

Merhaba,
Webbrowser nesnesi ile excel dosyasını userformda açabilirsiniz. Ayrıca spreadsheet eklentisiyle excel sayfalarını görüntüleyebilirsiniz.

 

[Luckyfran]

Merhaba,
Webbrowser nesnesi ile excel dosyasını userformda açabilirsiniz. Ayrıca spreadsheet eklentisiyle excel sayfalarını görüntüleyebilirsiniz.

örnek vererek gösterebilirmisiniz? Yapamadım

 

[Husgvarna]

örnek vererek gösterebilirmisiniz? Yapamadım

Sn. leumruk'un dediği gibi "web browser" a ımage ekleyip anlık görüntü
alabilirsiniz veya "spreadsheet" ile işinize yararsa;
ek dosyayı inceleyin.

 

[Luckyfran]

Hocam çok saolun

 

[excel_ance]

saygılar

Sn. leumruk'un dediği gibi "web browser" a ımage ekleyip anlık görüntü
alabilirsiniz veya "spreadsheet" ile işinize yararsa;
ek dosyayı inceleyin.

arkadaşım bir soru da ben sormak istedim. userformda excel sayfası açma ile ilgili user form üzerinde button oluşturarak ilgili buttona tıkladığımızda buttona tanımlanan sayfanın userform üzerinde açma imkanımız varmı acaba. teşekkürler iyi çalışmalar

 

[Husgvarna]

user form üzerinde button oluşturarak ilgili buttona tıkladığımızda buttona tanımlanan sayfanın userform üzerinde açma imkanımız varmı acaba.

Aşağıdaki gibi olabilir ama tüm sayfa adlarını combobox a alarak seçme imkanı verilebilir.

 Private Sub CommandButton1_Click()
Dim veri As Range
Me.Spreadsheet1.Cells.ClearContents
Set veri = ActiveWorkbook.Sheets("Sayfa2").UsedRange
Me.Spreadsheet1.Range(veri.Address).Value = veri.Value
End Sub

 

[excel_ance]

günaydınlar

Aşağıdaki gibi olabilir ama tüm sayfa adlarını combobox a alarak seçme imkanı verilebilir.

 Private Sub CommandButton1_Click()
Dim veri As Range
Me.Spreadsheet1.Cells.ClearContents
Set veri = ActiveWorkbook.Sheets("Sayfa2").UsedRange
Me.Spreadsheet1.Range(veri.Address).Value = veri.Value
End Sub

bu kodu kendi sayfama uyarlayarak söylediğiniz gibi deneyecem. yardımlarınız ve ilginiz için teşekkür ediyorum. iyi günler dilerim

 

[excel_ance]

merhabalar

Aşağıdaki gibi olabilir ama tüm sayfa adlarını combobox a alarak seçme imkanı verilebilir.

 Private Sub CommandButton1_Click()
Dim veri As Range
Me.Spreadsheet1.Cells.ClearContents
Set veri = ActiveWorkbook.Sheets("Sayfa2").UsedRange
Me.Spreadsheet1.Range(veri.Address).Value = veri.Value
End Sub

iyi günler. bu kodları denedim fakat hata verdi neden kaynaklandığını tam olarak bulamadım. bunun başka yöntemi varmıdır acaba