Мои заметки после работы с VBA (Tips and tricks)

Конвертация из String в Integer:

 i = CInt(s)

Конвертация из Integer в String:

s = str(i)

Активация конкретного листа:

sheets("mytabname").activate

Использование циклов Do и выход из циклов:

Do [{While | Until} condition]
[statements]
[Exit Do]
[statements]
Loop

Or, you can use this syntax:
Do
[statements]
[Exit Do]
[statements]
Loop [{While | Until} condition]

Процедура для удаления пустых строк

Private Sub CommandButton3_Click()
'Delete empty lines

Dim numberOfRows, count As Integer
Dim sheetName As String

sheetName = TextBox3.Text
Sheets(sheetName).Activate

numberOfRows = CInt(TextBox1.Text)
count = 0

For i = numberOfRows To 1 Step -1
    If (Cells(i, 1).Value = Empty) Then
        count = count + 1
        Cells(i, 1).EntireRow.Delete
    End If
Next i
    
MsgBox ("Finished. Number of deleted rows is" + Str(count))

End Sub

Проверка того, что ячейка пуста и удаление целой строки:

If (Cells(i, 1).Value = Empty) Then
        count = count + 1
        Cells(i, 1).EntireRow.Delete
End If

Показ сообщения с числом каким-нибудь:

MsgBox ("Finished. Number of deleted rows is" + Str(count))

Добавление данных на другой лист:

Worksheets("XProdRugSets").Cells(i + j - firstRugSetIDRow + 1, 1).Value = ProdID