copy a cell or cells Free Excel Macros (VBA) | Excel Programs

Copy Macro

'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php 
 
Sub CopyOneArea()
    Dim sourceRange As Range
    Dim destrange As Range
    Dim Lr As Long
    Lr = LastRow(Sheets("Sayfa1")) + 1
    Set sourceRange = Sheets("Sayfa1").Range("A1:c10")
    Set destrange = Sheets("Sayfa2").Range("A" & Lr)
    sourceRange.Copy destrange
End Sub

Sub CopyOneAreaValues()
    Dim sourceRange As Range
    Dim destrange As Range
    Dim Lr As Long
    Lr = LastRow(Sheets("Sayfa2")) + 1
    Set sourceRange = Sheets("Sayfa1").Range("A1:c10")
    With sourceRange
        Set destrange = Sheets("Sayfa2").Range("A" & Lr). _
        Resize(.Rows.Count, .Columns.Count)
    End With
    destrange.Value = sourceRange.Value
End Sub

Function LastRow(sh As Worksheet)
    On Error Resume Next
    LastRow = sh.Cells.Find(What:="*", _
                            After:=sh.Range("A1"), _
                            Lookat:=xlPart, _
                            LookIn:=xlFormulas, _
                            SearchOrder:=xlByRows, _
                            SearchDirection:=xlPrevious, _
                            MatchCase:=False).Row
    On Error GoTo 0
End Function

Function Lastcol(sh As Worksheet)
    On Error Resume Next
    Lastcol = sh.Cells.Find(What:="*", _
                            After:=sh.Range("A1"), _
                            Lookat:=xlPart, _
                            LookIn:=xlFormulas, _
                            SearchOrder:=xlByColumns, _
                            SearchDirection:=xlPrevious, _
                            MatchCase:=False).Column
    On Error GoTo 0
End Function

No	Macro Name
1	copy a cell or cells
2	Copy and paste formats of cells
3	find and copy and paste in macro
4	add sheet / page automatically in cell a1
5	Copy and paste cell values by shortcut
6	Adds sheet / pages based on data in column A and writes data up to column D
7	copy the formula in the cell by the number of rows that have changed
8	Determining that a Row or Column is Empty
9	sheet / page1 a1b1c1 is full and column b is hidden and copy c1 i to sheet / page2b on a1b1
10	a1 = 1 c1 = 3 column b be hidden. sheet2 is a1 = 1 b1 = 3
11	copy matching data in one column to the other shot
12	search find copy to other sheet / page
13	row Â add copy sort to get subtotals.
14	giving sheet / page insertion sequence number
15	How to write a copy macro in excel?
16	Type a1: c10 from the active cell
17	copy cells as images
18	sheet / page address and set column width
19	creates folder with book name save each sheet / page separately
20	filtered transfer

Excel Free Macros (VBA)

Copy A Cell Or Cells

Online Excel Courses

Services

How can we help you?

Subscribe to our Youtube Channel?

Keywords