Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Excel Ortamında Rapor Oluşturma

H@K@N
H@K@N
Excel Cevaplanmış Soruları
6
493

Excel Ortamında Rapor Oluşturma

Çözüldü #1
H@K@N
Aktif Üye
H@K@N
Bul
Aktif Üye
Adı Soyadı:
Yaşı: 37
Konum:
Ofis Versiyonu:
Son Oturumu: 15/06/2022,09:55
Yorumları: 51
Konuları: 20
Kayıt Tarihi: 12/03/2020
Teşekkür Puanı: 0
Aşağıdaki kod yardımıyla PDF ortamında oluşturduğum raporu Excel ortamında açmak istiyorum.
Kodda nasıl bir değişiklik yapmam gerekir.


Kod:
.Range("A1:I41").ExportAsFixedFormat Type:=xlTypePDF, openafterpublish:=True
Cevapla
#2
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Bugün,12:49
Yorumları: 8.405
Konuları: 94
Kayıt Tarihi: 30/07/2014
Teşekkür Puanı: 1.037
Amacınızı biraz daha açıklar mısınız
Pdf verilerini excele mi alacaksınız?
Örnek çalışmanızı ekler misiniz
Cevapla
#3
H@K@N
Aktif Üye
H@K@N
Bul
Aktif Üye
Adı Soyadı:
Yaşı: 37
Konum:
Ofis Versiyonu:
Son Oturumu: 15/06/2022,09:55
Yorumları: 51
Konuları: 20
Kayıt Tarihi: 12/03/2020
Teşekkür Puanı: 0
(29/03/2022, 22:09)berduş yazdı: Amacınızı biraz daha açıklar mısınız
Pdf verilerini excele mi alacaksınız?
Örnek çalışmanızı ekler misiniz



verileri textbox ve combobaxlara çektikten sonra belge düzenle butonuna tıklayıp excelde açmak istiyorum.

excelde hazırlamış olduğum hücrelere textbox ve combobaxdaki veriler aktarılıyor ancak rapor alırken pdf e çevirip açıyor ben yine Excel açsın istiyorum...

Belge düzenle butonunun kodları

Kod:
Private Sub CommandButton5_Click()
With Sheets("belge")
.Range("E9") = Me.TextBox3
.Range("E10") = Me.TextBox4
.Range("E11") = Me.TextBox2
.Range("E12") = Me.TextBox5
.Range("E13") = Me.ComboBox8
.Range("E14") = Me.ComboBox4
.Range("E15") = Me.ComboBox6
.Range("E16") = Me.TextBox1
.Range("E18") = Me.ComboBox2

Range("A1:I41").ExportAsFixedFormat Type:=xlTypePDF, openafterpublish:=True
End With
Cevapla
#4
H@K@N
Aktif Üye
H@K@N
Bul
Aktif Üye
Adı Soyadı:
Yaşı: 37
Konum:
Ofis Versiyonu:
Son Oturumu: 15/06/2022,09:55
Yorumları: 51
Konuları: 20
Kayıt Tarihi: 12/03/2020
Teşekkür Puanı: 0
(29/03/2022, 22:17)H@K@N yazdı:
(29/03/2022, 22:09)berduş yazdı: Amacınızı biraz daha açıklar mısınız
Pdf verilerini excele mi alacaksınız?
Örnek çalışmanızı ekler misiniz



Örnek dosyam ektedir.

Arama sayfasında listboxta listelenen kayıtlardan birine tıkladığımızda Personel Getir sayfası açılıyor. Burada Personel Bilgilerini Getir butonuna tıkladığımızda bilgiler textbox ve combobaxlara geliyor.

Rapor Al butonuna tıkladığımda PDF değil Excel olarak açsın istiyorum.

Yardımlarınızı bekliyorum Teşekkürler.
.rar yardım.rar (Dosya Boyutu: 473,31 KB | İndirme Sayısı: 5)
Cevapla
#5
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Bugün,12:49
Yorumları: 8.405
Konuları: 94
Kayıt Tarihi: 30/07/2014
Teşekkür Puanı: 1.037
aşağıdaki kodu dener misiniz?
yeni Excel kitabı oluşturup veriyi oraya yollar
not: otomatik olarak kaydetmez, sizin kaydetmeniz gerek.
With Sheets("Sayfa1")

.Range("D4") = Me.TextBox1

.Range("D6") = Me.ComboBox1

.Range("D8") = Me.TextBox2

.Range("D10") = Me.TextBox3

.Range("D12") = Me.TextBox4

    Dim wb As Workbook

    Set wb = Workbooks.Add

   .Copy Before:=wb.Sheets(1)

End With
Cevapla
#6
H@K@N
Aktif Üye
H@K@N
Bul
Aktif Üye
Adı Soyadı:
Yaşı: 37
Konum:
Ofis Versiyonu:
Son Oturumu: 15/06/2022,09:55
Yorumları: 51
Konuları: 20
Kayıt Tarihi: 12/03/2020
Teşekkür Puanı: 0
(30/03/2022, 12:18)berduş yazdı: aşağıdaki kodu dener misiniz?
yeni Excel kitabı oluşturup veriyi oraya yollar
not: otomatik olarak kaydetmez, sizin kaydetmeniz gerek.
With Sheets("Sayfa1")

.Range("D4") = Me.TextBox1

.Range("D6") = Me.ComboBox1

.Range("D8") = Me.TextBox2

.Range("D10") = Me.TextBox3

.Range("D12") = Me.TextBox4

    Dim wb As Workbook

    Set wb = Workbooks.Add

  .Copy Before:=wb.Sheets(1)

End With



Üstadım efsanesiniz. Çok teşekkürler yine sayenizde büyük bir sorunum çözüldü. İyiki varsınız.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task