Zaznaczenie wybranej komórki

Range("A2").Select


Wartość danej komórki

Cells(1, 1).Value


Długość tekstu w komórce

Len(Cells(1, 1).Value)


Wyrównanie tekstu do lewej w komórce

Worksheets("WN_" & Mid(nazwa_wniosku, 1, 5) & "_" & Mid(nazwa_wniosku, 7, 5) & "_Protokol_Final").Range("B6").HorizontalAlignment = xlLeft


Scalanie komórek

With Worksheets("WN_" & Mid(nazwa_wniosku, 1, 5) & "_" & Mid(nazwa_wniosku, 7, 5) & "_Protokol_Final").Range("C3:E4")
.Merge
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With


Usunięcie danych ze scalonych komórek

Worksheets("Users").Cells(i, 5).MergeArea.ClearContents


Indeks ostatniej wypełnionej komórki w kolumnie

Worksheets("Uprawnienia_Grupa1").Range("B" & Rows.Count).End(xlUp).Row


Usunięcie określonego wiersza z Arkusza

Worksheets("Users").Rows(1).EntireRow.Delete


Kopiowanie wiersza do innego arkusza

Sheets("Różnice").Rows(2 * j - 1).Value = Sheets("Uprawnienia_Grupa2").Rows(m).Value


Aktywacja ostatniej komórki w wierszu

With Sheets("WN_" & Mid(nazwa_wniosku, 1, 5) & "_" & Mid(nazwa_wniosku, 7, 5) & "_Dobre")
.Activate
.Cells(Worksheets("WN_" & Mid(nazwa_wniosku, 1, 5) & "_" & Mid(nazwa_wniosku, 7, 5) & "_Dobre").Range("A" & Rows.Count).End(xlUp).Row, 1).Activate
End With


Pogrubianie wiersza

Worksheets("WN_" & Mid(nazwa_wniosku, 1, 5) & "_" & Mid(nazwa_wniosku, 7, 5) & "_Protokol_Final").Rows(p).Font.Bold


Zmiana formatu kolumny

Range("C:C").NumberFormat = "@"


Usuwanie kolumn

Worksheets("WN_" & Mid(nazwa_wniosku, 1, 5) & "_" & Mid(nazwa_wniosku, 7, 5) & "_Protokol_Final").Columns("F:G").Delete


Wyśrodkowanie kolumn

Worksheets("WN_" & Mid(nazwa_wniosku, 1, 5) & "_" & Mid(nazwa_wniosku, 7, 5) & "_Protokol_Final").Columns("C:E").HorizontalAlignment = xlCenter


Dopasowanie szerokości kolumn do tekstu

Worksheets("WN_" & Mid(nazwa_wniosku, 1, 5) & "_" & Mid(nazwa_wniosku, 7, 5) & "_Protokol_Final").Columns("A:G").AutoFit


Usunięcie danych z używanego zakresu

Worksheets("Users").UsedRange.Delete


Usunięcie arkusza

Worksheets("WN_" & Mid(nazwa_wniosku, 1, 5) & "_" & Mid(nazwa_wniosku, 7, 5)).Delete


Aktywowanie arkusza

Worksheets("WN_" & Mid(nazwa_wniosku, 1, 5) & "_" & Mid(nazwa_wniosku, 7, 5) & "_Protokol_Final").Activate


Utworzenie nowego arkusza po innym konkretnym i aktywowanie go

Worksheets.Add(After:=Worksheets("WN_" & Mid(nazwa_wniosku, 1, 5) & "_" & Mid(nazwa_wniosku, 7, 5))).Name = "WN_" & Mid(nazwa_wniosku, 1, 5) & "_" & Mid(nazwa_wniosku, 7, 5) & "_Dobre"


Zmiana rozmiaru czcionki arkusza

Worksheets("WN_" & Mid(nazwa_wniosku, 1, 5) & "_" & Mid(nazwa_wniosku, 7, 5) & "_Protokol_Final").Cells.Font.Size = 10


Obramowanie używanego zakresu w arkuszu

Worksheets("WN_" & Mid(nazwa_wniosku, 1, 5) & "_" & Mid(nazwa_wniosku, 7, 5) & "_Protokol_Final").UsedRange.Borders.LineStyle = xlContinuous


Sortowanie kolumny

Range("A:A").Sort Key1:=Range("A1"), _
Order1:=xlAscending, _
Header:=xlYes