MS Excel

Téma: Makro odeslani dat az po vyplneni buňek

Zaslal/a hans66 21.4.2015 17:28

Ahoj,
stažím se spáchat formulář, kde uživatel vyplní data na listu Formulár a po stisku tlačítka report se data zapíší na další list report.
Já bych potřeboval aby se mi data zapsala až po vyplnění určitých buňěk: B6,B8...popřípadě když by nebyla buňka vyplněná aby to uživatele upozornilo aby tato pole vyplnil.
VB moc neovládám
Děkuji za pomoc

Sub report()

'vypln bunku jmeno
If Worksheets("Formular").Range("B6") = "" Then MsgBox ("Vyplň položku jméno!")

'vypln bunku kancelar
If Worksheets("Formular").Range("B8") = "" Then MsgBox ("Vyplň položku kancelář!")

'If Worksheets("Formular").Range("B16") = "" Then MsgBox ("Vyplň položku prefix!")
If Worksheets("Formular").Range("C16") = "" Then MsgBox ("Vyplň položku inventární číslo!")

Dim Radek As Long
Radek = Worksheets("SD karty").Cells(Rows.Count, 1).End(xlUp).Row + 1 'najde poslední plný řádek a přičte 1
'Debug.Print Radek

'list report
Worksheets("report").Cells(Radek, 1) = Worksheets("Formular").Range("B40").Value 'datum
Worksheets("report").Cells(Radek, 2) = Worksheets("Formular").Range("B16").Value 'prefix
Worksheets("report").Cells(Radek, 3) = Worksheets("Formular").Range("C16").Value 'inv cislo
Worksheets("report").Cells(Radek, 4) = Worksheets("Formular").Range("B14").Value 'nazev zarizeni
Worksheets("report").Cells(Radek, 5) = Worksheets("Formular").Range("B15").Value 'imei
End Sub