hücrede yazan yazıyı pdf isi olarak çıktı almak
-
- Mesajlar: 2
- Kayıt: 06 Eki 2023, 00:52
- Adınız: nihal
- Soyadınız: afşar
hücrede yazan yazıyı pdf isi olarak çıktı almak
b2 v k2 hücreleri arasındaki yazıları pdf ismi olarak kaydetmek istiyorum b2 ve k2 dahil
Bu mesaja eklenen dosyaları görüntülemek için gerekli izinlere sahip değilsiniz.
-
- Mesajlar: 88
- Kayıt: 24 Haz 2023, 00:23
- Web Sitesi: https://erseldemirel.com.tr/
- Adınız: Ersel
- Soyadınız: Demirel
Re: hücrede yazan yazıyı pdf isi olarak çıktı almak
Bu kodu test edin
Kod: Tümünü seç
Sub test()
Set alan = ThisWorkbook.Sheets("Sayfa1").Range("B2:K2")
Metin = ""
For Each Cell In alan
Metin = Metin & Cell.Value
Next Cell
dosya = "test.pdf"
yol = ThisWorkbook.Path & "\" & dosya
Sheets("Sayfa1").ExportAsFixedFormat Type:=xlTypePDF, Filename:=yol
End Sub
-
- Mesajlar: 9
- Kayıt: 23 Haz 2023, 18:52
- Lokasyon: Adana
- Meslek: İşletmeci
- Adınız: Atila
- Soyadınız: Ballıkaya
Re: hücrede yazan yazıyı pdf isi olarak çıktı almak
PDF OLUŞTUR
Bu mesaja eklenen dosyaları görüntülemek için gerekli izinlere sahip değilsiniz.
-
- Mesajlar: 2
- Kayıt: 06 Eki 2023, 00:52
- Adınız: nihal
- Soyadınız: afşar
Re: hücrede yazan yazıyı pdf isi olarak çıktı almak
Hoac teşekkürler sizden bir ricam var her hücreyi değilde b2 ve k2 arasındaki rastgele 5 hücreyi yazdırmak idtiyorum bununiin ne yapmam gerekir.
Ybi b2,d2,e2, g2, ı2,k2 gibi
Set rng = ws.Range("B2:K2") ' Hedef hücre aralığını düzenleyin