MS Excel

Téma: Spuštění formuláře na

Zaslal/a mukl 5.8.2011 17:49

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ý

Zaslat odpověď >

Shtuchka(5.8.2011 22:54)#005716

Když vzniknou takové chyby, můžete zkusit přidat jméno listu k rozsahu. Například,
sheets("Dodavatele_seznam").Range("polozka0").
Pak Excel se rozumí, co je to list.citovat

mukl(5.8.2011 23:36)#005717

Díky za radu.
Už to vypadá funkčněcitovat

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.