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

UserForm üzerine Excel sayfası görünümü vererek verilerinizi listeleyebileceğiniz nesne modeli.

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

İleti#1)  Murat OSMA » 12 Ağu 2011 23:28

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
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Murat OSMA
Site Forum Yöneticisi
 
Adı Soyadı:Murat OSMA
Kayıt: 04 Arl 2008 22:34
Konum: İstanbul
Meslek: Excel & VBA Eğitmeni
Yaş: 34
İleti: 14357
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL

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

İleti#2)  Erhan Yavuz » 13 Ağu 2011 08:14

[evet] şkşk [mersi] şkşk
☾✭ Türkçemizi tam ve doğru kullanmaktan korkmayalım..
Teşekkür etmek Erdemdir. ECYavuz


OSMANLI OYUNU (1402-1566)
http://www.excelvba.net/viewtopic.php?f=41&t=9984

EXCEL-VBA KOD BANKASI PRO.7.0
http://www.excelvba.net/viewtopic.php?f=38&t=3304
Resim
Kullanıcı avatarı
Erhan Yavuz
Site Forum Yöneticisi
 
Adı Soyadı:Erhan Yavuz
Kayıt: 15 Haz 2008 00:13
Konum: Etiler / İstanbul
Meslek: Emekli Sb.
Yaş: 60
İleti: 5695
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Etiler

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

İleti#3)  skat » 13 Ağu 2011 23:27

Murat Bey mübarek ramazanda bile performansınız süper maşallah.Hayırlı geceler.
Kullanıcı avatarı
skat
Siteye Alışmış
 
Adı Soyadı:SITKI YAĞCI
Kayıt: 15 Haz 2008 00:17
Konum: ereğli
Meslek: I. Kademe Vardiya amiri/Yönetici
Yaş: 44
İleti: 225
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kdz.Ereğli

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

İleti#4)  Murat OSMA » 13 Ağu 2011 23:29

Teşekkürler Sıtkı bey, size de hayırlı geceler. --)(
Kullanıcı avatarı
Murat OSMA
Site Forum Yöneticisi
 
Adı Soyadı:Murat OSMA
Kayıt: 04 Arl 2008 22:34
Konum: İstanbul
Meslek: Excel & VBA Eğitmeni
Yaş: 34
İleti: 14357
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

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

İleti#5)  safe88 » 16 Haz 2014 09:37

İyi günler dosyayı açtım hata veriyor neden acaba.
Kullanıcı avatarı
safe88
Yeni Başlamış
 
Adı Soyadı:mehmet can
Kayıt: 10 Arl 2012 11:26
Konum: mühendis
Meslek: adana
Yaş: 23
İleti: 90
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: adana

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

İleti#6)  Murat OSMA » 16 Haz 2014 11:22

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.
Kullanıcı avatarı
Murat OSMA
Site Forum Yöneticisi
 
Adı Soyadı:Murat OSMA
Kayıt: 04 Arl 2008 22:34
Konum: İstanbul
Meslek: Excel & VBA Eğitmeni
Yaş: 34
İleti: 14357
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

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

İleti#7)  Tarkan VURAL » 16 Haz 2014 13:31

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.
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 46
İleti: 27077
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

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

İleti#8)  seheryıldız » 21 May 2015 14:05

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 ?
Kullanıcı avatarı
seheryıldız
Siteye Alışmış
 
Kayıt: 15 Nis 2015 08:21
Meslek: yönetici asistanı
Yaş: 32
İleti: 396
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: istanbul/maltepe


Forum SpreadSheet

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 0 misafir

Bumerang - Yazarkafe