Seçili hücredeki değerleri mail ile gönderme

[16prens]

SLM
3 ayrı sorum olacak

1)örn: A1:E10 hücreleri arasındaki değerleri maile resim olarak kopyalayarak göndermek istiyorum.

2)A1:E10 hücrelerini A4 kağıdına yazdırmak istiyorum.

3)A1:A10+D110+E1:E10 hücrelerindeki değeri kopyalamak için buton nasıl yaparım.

Yardımlarınızdan dolayı teşekkür ederim

 

[Korhan Ayhan]

Merhaba,

1. Sorunuz için aşağıdaki linki inceleyiniz.

Verileri maile kopyalayıp göndermek

2. Sorunuz için aşağıdaki kodu deneyiniz.

Sub YAZDIR()
    With ActiveSheet.PageSetup
        .LeftMargin = Application.InchesToPoints(0.75)
        .RightMargin = Application.InchesToPoints(0.75)
        .TopMargin = Application.InchesToPoints(1)
        .BottomMargin = Application.InchesToPoints(1)
        .HeaderMargin = Application.InchesToPoints(0.5)
        .FooterMargin = Application.InchesToPoints(0.5)
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
    Range("A1:E10").PrintOut Copies:=1, Preview:=False, Collate:=True
End Sub

3. Sorunuz için aşağıdaki kodu deneyiniz.

Sub KOPYALA()
    Range("A1:A10,D1:D10,E1:E10").Copy
End Sub

 

[16prens]

Teşekkür ederim verdiğiniz 2 ve 3 nolu kodları uyguladım kullanıyorum.
1 nolu sorumada yardımcı olursanız sevinirim

 

[Korhan Ayhan]

Merhaba,

1. sorunuz içinde uygulamalı linki verdim. Tavsiye edilen butondaki kodları alıp kullanacaksınız.

 

[16prens]

göndermiş olduğunuz dosyadaki makroyu aldım fakat hata veriyor

 

[Korhan Ayhan]

Merhaba,

Önerdiğim linkteki dosyadaki kodların bir kısmınız dosyanıza aktarmışısınız. Kodları çalıştıran birde fonksiyon bölümü var. Ona ait kodları dosyanıza aktarmamışsınız. Bu sebeple hata alıyorsunuz.

Örnek dosyadaki "FunctionModule" isimli modülüde dosyanıza aktarıp deneyin.