aktif hücrenin yazdırılması 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()
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 
    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 
            rHeight(i) = Rows(i).RowHeight
        Next i
        For i = 1 To cCount 
            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 
            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	aktif hücrenin yazdırılması
2	Aktif hücreden belirtilen uzaklıktaki hücreye değer atamak.
3	excelde kendi eklenti ve fonksiyonlarınızı oluşturun
4	klasör ve dosya makrolarındaki yolları kendine göre düzenle
5	entere basilinca istediğimiz bir hücrenin aktif olmasi
6	aktif hücrenin adresini mesajla öğrenme
7	aktif hücrenin cinsini bulma
8	aktif hücrenin sayfa başına çıkmasını istiyor musunuz?
9	Aktif hücrenin üzerindeki iki hücrenin değerleri toplanır ve sonuç aktif olan hücreye yazılır.
10	aktif hücrenin numerik veya yazı olduğunu kontrol etme
11	aktif hücrenin altındaki boş olan satırları siler
12	aktif hücrenin bulunduğu satır renklensin
13	eğer aktif hücre değeri 1 den büyük ise aktif hücrenin altına boş satır ekler
14	Aktif hücrenin satır ve sütun numaralarının tespit edilmesi
15	Aktif hücrenin içerisinde bulunduğu sayfanın ve dosyanın adının tespit edilmesi
16	Aktif hücrenin bulunduğu satırı tamamını seçer.
17	Aktif hücrenin etrafındaki dolu hücreleri seçer.
18	aktif hücrenin bulunduğu satırı seçer
19	aktif hücrenin bulunduğu sütunu (kolonu) seçer
20	Aktif olan hücrenin belirtilen kadar uzağındaki hücreyi seçmek

Benzer Sonuçlar

Makro Adı

aktif hücrenin yazdırılması

Aktif hücreden belirtilen uzaklıktaki hücreye değer atamak.

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

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

entere basilinca istediğimiz bir hücrenin aktif olmasi

aktif hücrenin adresini mesajla öğrenme

aktif hücrenin cinsini bulma

aktif hücrenin sayfa başına çıkmasını istiyor musunuz?

Aktif hücrenin üzerindeki iki hücrenin değerleri toplanır ve sonuç aktif olan hücreye yazılır.

aktif hücrenin numerik veya yazı olduğunu kontrol etme