Blog

lastrow excel

Last used cell in one row or one column

mencari cells terakhir yang berisi content dalam 1 row atau dalam 1 column

Sub LastRowInOneColumn()
<span class="vbatext">'Find the last used row in a Column: column A in this example</span>
    Dim LastRow As Long
    With ActiveSheet
        LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
    End With
    MsgBox LastRow
End Sub

Sub LastColumnInOneRow()
<span class="vbatext">'Find the last used column in a Row: row 1 in this example</span>
    Dim LastCol As Integer
    With ActiveSheet
        LastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column
    End With
    MsgBox LastCol
End Sub

Last used cell in a worksheet

mencari cells kontent terakhir dalam 1 worksheet

Last Row :

Sub xlCellTypeLastCell_Example_Row()
    Dim LastRow As Long
    With ActiveSheet
        LastRow = .Range("A1").SpecialCells(xlCellTypeLastCell).Row
    End With
    MsgBox LastRow
End Sub

Sub UsedRange_Example_Row()
    Dim LastRow As Long
    With ActiveSheet.UsedRange
        LastRow = .Rows(.Rows.Count).Row
    End With
    MsgBox LastRow
End Sub

Last Column :

Sub xlCellTypeLastCell_Example_Column()
    Dim LastColumn As Long
    With ActiveSheet
        LastColumn = .Range("A1").SpecialCells(xlCellTypeLastCell).Column
    End With
    MsgBox LastColumn
End Sub

Sub UsedRange_Example_Column()
    Dim LastColumn As Long
    With ActiveSheet.UsedRange
        LastColumn = .Columns(.Columns.Count).Column
    End With
    MsgBox LastColumn
End Sub

tips menarik lain nya : send email via macro excel

kirim email

Ini adalah script vba excel kirim email via outlook

*copy script dibawah ini kemudian paste di vba editor excel anda 

Sub sendemail()
'bekerja di Excel 2000-2016
Dim OutApp As Object
Dim OutMail As Object

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

On Error Resume Next
With OutMail
.to = "test@indotrainingcenter.com"
.CC = ""
.BCC = ""
.Subject = "ini judul email"
.Body = "Hi there, ini isi email "
.Attachments.Add ActiveWorkbook.FullName
'anda bisa mensisipkan attachment lain seperti yang dibawah ini
'.Attachments.Add ("C:\test.txt")
.display
'.Send -- ini untuk perintah langsung mengirim email tanpa dilihat terlebih dahulu
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing
End Sub

tips body email :

• gunakan script <b> — untuk huruf tebal
• gunakan script <i> — untuk huruf italic
• gunakan script <u> — untuk underline
• gunakan script <br> — untuk break (ganti spasi)
• gunakan script <font color=”red”> — untuk mengubah warna menjadi merah atau warna lainnya

tips menarik berikut nya : mengetahui lastrow (cells terakhir yang berisi kontent)