Merhaba
Çalışmakta olduğum şirkette personel puantajı üzerinde çalışıyorum. Puantaj üzerinden isteğe bağlı olarak bazı alanları seçip yazdırmak istiyorum. Her ne kadar düzenlesemde yazcı çıktısında sayfaya sığdırma konusunda sıkıntı yaşıyorum. Uzun zamandır
Excel ile fast report arasında bağlantı kurmak için araştırma yaptım ama bir çözüm bulamadım.
Sorunum : Excel'de yan yana (Adı Soyadı Görevi Birimi İşe Giriş Tarihi İl İlçe Köy Adres) v.s. sütunlar var. Bunlardan örnek (
Adı Soyadı Görevi Birimi İşe Giriş Tarihi) alanlarını seçip fast report aracılığı ile yazdırmak istiyorum. Bunu nasıl yapabilirim. Yardımcı olabilir misiniz. Yada farklı bir çözüm öneriniz var mı?
Fast Report hakkında bilgim yok ancak Örnek dosya ekleme şansınız varsa alternatif yollar için yardımcı olabilirim
Merhaba
Dosyada sütunlarca veri var ben istediklerimi seçip yazdır dediğim zaman yazdırmasını istiyorum. Örnek :
(Adı Soyadı Görevi Birimi İşe Giriş Tarihi İl İlçe Köy Adres) seçip yazıcıdan çıktı almak istiyorum.
https://drive.google.com/open?id=1wvyaR5..._llSnmLqKE
aşağıdaki kodu dener misiniz?
önce sütunları -sütun başlıklarının olduğu 2. satırdaki hücreleri -seçip sonrada düğmeye basmalısınız
Dim Secili As Range
Dim xSht As Sheets
Dim TxtAdrs() As String
Set Secili = Selection
Dim Hucr As Range
Dim SeciliRng As String
xScreenUpdate = Application.ScreenUpdating
xAlert = Application.DisplayAlerts
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets.Add.Name = "GccSil"
SonHcr = Sheets("VERİ").Cells(Rows.Count, 1).End(xlUp).Row
For Each Hucr In Secili.Cells
With Hucr
TxtAdrs = Split(.Address, "$")
SeciliRng = SeciliRng & "," & TxtAdrs(1) & TxtAdrs(2) & ":" & TxtAdrs(1) & SonHcr
End With
Next Hucr
SeciliRng = Mid(SeciliRng, 2)
Sheets("VERİ").Range(SeciliRng).Copy Sheets("GccSil").Range("A1")
Sheets("GccSil").PrintOut
Sheets("GccSil").Delete
Application.ScreenUpdating = xScreenUpdate
Application.DisplayAlerts = xAlert
(03/01/2020, 20:16)berduş yazdı: [ -> ]aşağıdaki kodu dener misiniz?
önce sütunları -sütun başlıklarının olduğu 2. satırdaki hücreleri -seçip sonrada düğmeye basmalısınız
Dim Secili As Range
Dim xSht As Sheets
Dim TxtAdrs() As String
Set Secili = Selection
Dim Hucr As Range
Dim SeciliRng As String
xScreenUpdate = Application.ScreenUpdating
xAlert = Application.DisplayAlerts
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets.Add.Name = "GccSil"
SonHcr = Sheets("VERİ").Cells(Rows.Count, 1).End(xlUp).Row
For Each Hucr In Secili.Cells
With Hucr
TxtAdrs = Split(.Address, "$")
SeciliRng = SeciliRng & "," & TxtAdrs(1) & TxtAdrs(2) & ":" & TxtAdrs(1) & SonHcr
End With
Next Hucr
SeciliRng = Mid(SeciliRng, 2)
Sheets("VERİ").Range(SeciliRng).Copy Sheets("GccSil").Range("A1")
Sheets("GccSil").PrintOut
Sheets("GccSil").Delete
Application.ScreenUpdating = xScreenUpdate
Application.DisplayAlerts = xAlert
Merhaba belirttiğiniz kodu Alt+F11 ile açılan sayfaya yaptırdım. daha sonra buton oluşturduğum zaman kodu seçemiyorum. Eğer müsaitseniz örnek dosyada yapma şansınız var mı?
Butona sağ tıklayıp
Macro ata
Yeni
Kodu cikan sayfaya yapistirin