Příspěvky uživatele
< návrat zpět
Díky za radu.
Už to vypadá funkčně
Dobrý den,
potřeboval bych poradit, jak spustit, respektive uložit hodnoty z formuláře, pokud tento formulář spustím z jiného listu, než na který chci hodnoty ukládat.
Mám sepsaný tento kód:
Private Sub CommandButton1_Click()
With Sheets("Dodavatele_seznam")
Dim Posledni As Range
Dim Posun As Integer
Res = IfStorno
ufDodavatele.Show
If Res = IfOK Then
ActiveSheet.Unprotect
Posun = Range("polozka0").CurrentRegion.Rows.Count
Set Posledni = Range("polozka0").Offset(Posun, 0).EntireRow
UlozitDodavatele Posledni
Posledni.Cells(1, 1).Activate
ActiveSheet.Protect
End If
Unload ufDodavatele
End With
End Sub
Pokud formulář spustím z listu Dodavatele_seznam, tak funguje, pokud z jiného, tak mi to vypíše:
Run-time error 1004:
Method Range of object_Worksheet failed
Za rady budu vděčný
Uživatelské menu
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
RSS nejnovější články