Sayfayı yeni sayfa olarak dışarıya aktarma

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Sayfayı yeni sayfa olarak dışarıya aktarma

İleti#1)  abdi123456 » 10 Nis 2019 09:57

Değerli üstadlarım merhaba,

Aktar dediğimde rapor sayfasını masaütüne yeni bir excel sayfası olarak atmasını ve Dışarıya aktardığım sayfada formüller olmasın direk dışarıya metin biçiminde aktarsın istiyorum.

Desteğiniz için çok teşekkür ederim.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
abdi123456
Siteye Alışmış
 
Kayıt: 29 Ekm 2014 20:09
Meslek: bilgi işlem
Yaş: 25
İleti: 223
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: adana

Cevap: Sayfayı yeni sayfa olarak dışarıya aktarma

İleti#2)  veyselemre » 10 Nis 2019 10:43

Kod: Tümünü seç
Sub test()
    Sheets("Rapor").Copy
    With ActiveSheet.UsedRange
        .Copy
        .PasteSpecial xlPasteValues
    End With
    Application.CutCopyMode = False
    pth = CreateObject("WScript.Shell").SpecialFolders("Desktop")
    Application.DisplayAlerts = False
    ActiveWorkbook.Close True, pth & "\" & "Rapor"
    Application.DisplayAlerts = True
End Sub
Kullanıcı avatarı
veyselemre
Siteye Alışmış
 
Kayıt: 28 Nis 2015 15:53
Meslek: SERBEST
Yaş: 104
İleti: 384
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çubuk

Cevap: Cevap: Sayfayı yeni sayfa olarak dışarıya aktarma

İleti#3)  fenerbahcem » 13 Nis 2019 10:48

veyselemre yazdı:
Kod: Tümünü seç
Sub test()
    Sheets("Rapor").Copy
    With ActiveSheet.UsedRange
        .Copy
        .PasteSpecial xlPasteValues
    End With
    Application.CutCopyMode = False
    pth = CreateObject("WScript.Shell").SpecialFolders("Desktop")
    Application.DisplayAlerts = False
    ActiveWorkbook.Close True, pth & "\" & "Rapor"
    Application.DisplayAlerts = True
End Sub


Sayın Veysel Emre bey kardeşim ;

Rapor sayfasındaki D1 hücresinde Ahmet, E1 hücresinde KAVAK yazdığını varsayarak dosya ismini bu hücrelerden alarak
"Rapor Ahmet Kavak" olarak nasıl kayıt yapabiliriz.

Bunu ilave edebilirseniz sevinirim.Teşekkür ederim.
Kullanıcı avatarı
fenerbahcem
Yeni Başlamış
 
Kayıt: 08 Kas 2015 13:04
Meslek: ev hanımı
Yaş: 29
İleti: 55
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: Sinop

Cevap: Sayfayı yeni sayfa olarak dışarıya aktarma

İleti#4)  veyselemre » 13 Nis 2019 11:13

Kod: Tümünü seç
ActiveWorkbook.Close True, pth & "\" & "Rapor " & Range("D1").value
Kullanıcı avatarı
veyselemre
Siteye Alışmış
 
Kayıt: 28 Nis 2015 15:53
Meslek: SERBEST
Yaş: 104
İleti: 384
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çubuk

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

Cevap: Cevap: Sayfayı yeni sayfa olarak dışarıya aktarma

İleti#5)  fenerbahcem » 13 Nis 2019 12:49

veyselemre yazdı:
Kod: Tümünü seç
ActiveWorkbook.Close True, pth & "\" & "Rapor " & Range("D1").value


Teşekkür ederim.
Kullanıcı avatarı
fenerbahcem
Yeni Başlamış
 
Kayıt: 08 Kas 2015 13:04
Meslek: ev hanımı
Yaş: 29
İleti: 55
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: Sinop


Forum Genel Makro Soruları

Online Kullanıcılar

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

Bumerang - Yazarkafe