1 sayfadan 1. sayfa

Sayfadaki Verileri SpreadSheet'te Göster ve Farklı Kaydet

İletiTarih: 12 Ağu 2011 23:28
Murat OSMA
Kod: Tümünü seç
Option Explicit
Dim i As Single, ii As Single, No As Single
Dim Adet As Double
Dim Sayfa As Worksheet, Adı As String, Alan As Range, Adres As String

Kod: Tümünü seç
Private Sub UserForm_Initialize()
On Error Resume Next
With Me
.Width = 491
.Height = 296
End With
End Sub

Kod: Tümünü seç
Private Sub UserForm_Activate()
On Error Resume Next
Call SayfalarıListele
End Sub

Kod: Tümünü seç
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
On Error Resume Next
Application.Visible = True
End Sub

Kod: Tümünü seç
Private Sub ListBox1_Click()
On Error Resume Next
No = ListBox1.ListIndex
Adı = ListBox1.List(No, 0)
Set Sayfa = ThisWorkbook.Sheets(Adı)
Sayfa.Select
'Set Alan = Sayfa.UsedRange
Set Alan = Sayfa.Cells
Adres = Alan.Address
Alan.Copy
With Spreadsheet1.Sheets(1)
.Cells.ClearContents
'.Range(Adres).Paste
.Cells(1, 1).Paste
.Range("A1").Select
Application.CutCopyMode = False
End With
'With Spreadsheet1
' .Cells.ClearContents
' .Sheets(1).Range(Adres) = Alan.Value
'End With
End Sub

Kod: Tümünü seç
Private Sub CommandButton1_Click()
On Error Resume Next
ActiveSheet.Copy
Application.Dialogs(xlDialogSaveAs).Show
End Sub

Kod: Tümünü seç
Sub SayfalarıListele()
On Error Resume Next
For Each Sayfa In ThisWorkbook.Worksheets
ListBox1.AddItem Sayfa.Name
Next Sayfa
End Sub

Cevap: Sayfadaki Verileri SpreadSheet'te Göster ve Farklı Ka

İletiTarih: 13 Ağu 2011 08:14
Erhan Yavuz
[evet] şkşk [mersi] şkşk

Cevap: Sayfadaki Verileri SpreadSheet'te Göster ve Farklı Ka

İletiTarih: 13 Ağu 2011 23:27
skat
Murat Bey mübarek ramazanda bile performansınız süper maşallah.Hayırlı geceler.

Cevap: Sayfadaki Verileri SpreadSheet'te Göster ve Farklı Ka

İletiTarih: 13 Ağu 2011 23:29
Murat OSMA
Teşekkürler Sıtkı bey, size de hayırlı geceler. --)(

Cevap: Sayfadaki Verileri SpreadSheet'te Göster ve Farklı Ka

İletiTarih: 16 Haz 2014 09:37
safe88
İyi günler dosyayı açtım hata veriyor neden acaba.

Cevap: Sayfadaki Verileri SpreadSheet'te Göster ve Farklı Ka

İletiTarih: 16 Haz 2014 11:22
Murat OSMA
Dosyayı açtığınızda mı hata verdi, yoksa makroyu çalıştırdığınızda mı ?
Hangi durumda hangi hatayı verdiğini söylemezseniz yardımcı olamayız.

Cevap: Cevap: Sayfadaki Verileri SpreadSheet'te Göster ve Fa

İletiTarih: 16 Haz 2014 13:31
Tarkan VURAL
safe88 yazdı:İyi günler dosyayı açtım hata veriyor neden acaba.


Murat Bey' in dediği gibi hata açıklamasını bilmeliyiz.

Dosyayı açtığınızda hata veriyorsa muhtemelen sisteminizde SpreadSheet nesnesi yüklü değil. İnternetten OWC11.exe dosyasını bulup indirebilirsiniz. Yükledikten sonra büyük ihtimalle çalışacaktır.

Cevap: Sayfadaki Verileri SpreadSheet'te Göster ve Farklı Ka

İletiTarih: 21 May 2015 14:05
seheryıldız
Merhaba Tarkan Hocam,
Ben Windows 7 Home Premium 64 bit kullanıyorum Excel ise 14.0.7145.5000 sürümlü 32 bit kullanıyorum.
Bulduğum OWC11.exe dosyası ise 64 bit. Bunu indirip kursam bir sorun yaşamadan kullanabilir miyim yoksa 32 bit olanını nereden bulabilirim ? Bir adres verebilir misiniz ?