lastrow1 = Worksheets("Uprawnienia_Grupa1").Range("B" & Rows.Count).End(xlUp).Row
lastrow2 = Worksheets("Uprawnienia_Grupa2").Range("B" & Rows.Count).End(xlUp).Row
Worksheets("Uprawnienia_Grupa1").Range("B2:B" & lastrow1).Copy
Worksheets("Uprawnienia_Union").Range("A1").PasteSpecial
Worksheets("Uprawnienia_Grupa2").Range("B2:B" & lastrow2).Copy
Worksheets("Uprawnienia_Union").Range("A" & lastrow1).PasteSpecial


Przywołanie procedury

Call Przycisk1_Click


ADODB
W przypadku, gdy chcemy połączyć się z bazą danych Oracle i pojawia nam się błąd jak poniżej



musimy dodać odpowiednie Reference. W tym celu wchodzimy w Tools -> References



i dodajemy Microsoft ActiveX Data Objects x.y Library

FRAGMENT.TEKSTU - MID
Przykład: Do komórki B11 wpisujemy fragment tekstu ze zmiennej tekstowej "nazwa_wniosku" zaczynając od pierwszego jej znaku i wycinając ich pięć.

Range("B11").Value = Mid(nazwa_wniosku, 1, 5)


LICZ.JEŻELI - COUNTIF
Przykład: Do komórki B11 wpisujemy ilość wystąpień wartości zmiennej 'Powod" w kolumnie A arkusza "Powody"

Drukowanie określonego zakresu komórek na domyślnej drukarce

Range("A2:N33").PrintOut Copies:=1


Odpalenie skryptu PS

Dim str As String
str = ActiveWorkbook.Path & "\Pracownicy_CLGL_By_Name.ps1"
strCommand = "Powershell -File " & str
Set WshShell = CreateObject("WScript.Shell")
Set WshShellExec = WshShell.Exec(strCommand)


Zapis tekstu do pliku tekstowego

Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Dim oFile As Object
Set oFile = fso.CreateTextFile("C:\TEMP\test.txt")
oFile.WriteLine block
oFile.Close
Set fso = Nothing
Set oFile = Nothing


Zapis arkusza do pliku