seçilenin yazdırılması ve sorulması Hazır Excel Makroları (VBA) | Excel Programları

Makroyu Kopyala

'Excel Makro (VBA) online eğitimleri için: https://www.excelsizeyeter.com/excelsizeyeter.com/udemy_giris.php adresine tıklayınız. Bir eğitim alana bir eğitim bedavadır. İkinci eğitim olarak Excel, Excel pratik çözümler, finans eğitimleri vb. alabilirsiniz. 
 
Sub PrintSelectedCells()
' prints selected cells, use from a toolbar button or a menu
Dim aCount As Integer, cCount As Integer, rCount As Integer
Dim i As Integer, j As Long, aRange As String
Dim rHeight() As Single, cWidth() As Single
Dim AWB As Workbook, NWB As Workbook
    If UCase(TypeName(ActiveSheet))  "WORKSHEET" Then Exit Sub 
    ' useful only in worksheets
    aCount = Selection.Areas.Count
    If aCount = 0 Then Exit Sub ' no cells selected
    cCount = Selection.Areas(1).Cells.Count
    If aCount > 1 Then ' multiple areas selected
        Application.ScreenUpdating = False
        Application.StatusBar = "Printing " & aCount & " selected areas..."
        Set AWB = ActiveWorkbook
        rCount = ActiveSheet.Cells.SpecialCells(xlLastCell).Row
        cCount = ActiveSheet.Cells.SpecialCells(xlLastCell).Column
        ReDim rHeight(rCount)
        ReDim cWidth(cCount)
        For i = 1 To rCount 
            ' find the row height of every row in the selection
            rHeight(i) = Rows(i).RowHeight
        Next i
        For i = 1 To cCount 
            ' find the column width of every column in the selection
            cWidth(i) = Columns(i).ColumnWidth
        Next i
        Set NWB = Workbooks.Add ' create a new workbook
        For i = 1 To rCount ' set row heights
            Rows(i).RowHeight = rHeight(i)
        Next i
        For i = 1 To cCount ' set column widths
            Columns(i).ColumnWidth = cWidth(i)
        Next i
        For i = 1 To aCount
            AWB.Activate
            aRange = Selection.Areas(i).Address 
            ' the range address
            Range(aRange).Copy ' copying the range
            NWB.Activate
            With Range(aRange) ' pastes values and formats
                .PasteSpecial Paste:=xlValues, Operation:=xlNone, _
                    SkipBlanks:=False, Transpose:=False
                .PasteSpecial Paste:=xlFormats, Operation:=xlNone, _
                    SkipBlanks:=False, Transpose:=False
            End With
            Application.CutCopyMode = False
        Next i
        NWB.PrintOut
        NWB.Close False ' close the temporary workbook without saving
        Application.StatusBar = False
        AWB.Activate
        Set AWB = Nothing
        Set NWB = Nothing
    Else
        If cCount  -

Benzer Sonuçlar
No	Makro Adı
1	seçilenin yazdırılması ve sorulması
2	option buton ile seçilen verinin yazdırılması
3	seçilen alanlari bir kağitda yazdırır eder
4	seçilen alanları bir kağıtta yazdırır eder
5	verilen değere göre farklı hücreye bilgi veren bir makro
6	seçilen alanın 2 sayfa olarak yazdırılması
7	aktif hücrenin yazdırılması
8	excelde kendi eklenti ve fonksiyonlarınızı oluşturun
9	klasör ve dosya makrolarındaki yolları kendine göre düzenle
10	textbox hücre toplaminin yazdirilmasi
11	yazdırmak için süzme şart olsun 2
12	sadece a1 hücresinin yazdırılması
13	listbox1de değişken
14	forma otomatik resim getirme
15	userformda resim önzileme
16	Seçilen bölgedeki tüm kelimelerin ilk harfini büyük ve diğer harflerini küçük yapmak
17	AdvancedElektrik tablolarınızda gelişmiş görev hazırlamak için kullanabileceğiniz kodlardan bazıları.Seçilen Aralıkyı PDF olarak seçin: Bir aralık seçin, bu makroyu çalıştırın ve seçili aralık için bir PDF dosyası elde edin. Bu gerçekten havalı.
18	Seçilen hücrenin açıklamasına ekleme yapmak
19	Aralığı Görüntü Olarak Dönüştürme: Seçilen aralığı bir görüntü olarak yapıştırın. Aralığı seçmeniz yeterlidir ve bu kodu çalıştırdıktan sonra o aralık için otomatik olarak bir resim ekler.
20	comboboxa göre kayıt

Benzer Sonuçlar

Makro Adı

seçilenin yazdırılması ve sorulması

option buton ile seçilen verinin yazdırılması

seçilen alanlari bir kağitda yazdırır eder

seçilen alanları bir kağıtta yazdırır eder

verilen değere göre farklı hücreye bilgi veren bir makro

seçilen alanın 2 sayfa olarak yazdırılması

aktif hücrenin yazdırılması

excelde kendi eklenti ve fonksiyonlarınızı oluşturun

klasör ve dosya makrolarındaki yolları kendine göre düzenle

textbox hücre toplaminin yazdirilmasi