MS Excel

Téma: Aktivní list

Zaslal/a marficek119 19.6.2011 12:47

Zdravím, potřebuji pomoci s úpravou kódu. Mám Userform na vkládání položek z databáze do faktury. Potřebuji udělat více listů kam bude userform položky vkládat, jen bych nerad dělal více userformů (pro každý list). Napadlo mě, zda by šlo předělat kód pro userform, aby po zobrazení userformu vkládal položky pouze do aktivního listu. Položky se načítají z listu položky.
Prosím o pomoc. Díky M.
Private Sub VlozitDoNabidky_Click()
Dim i As Long
Dim start As Long
Dim polozka As String

If PolozkyNabidka.Value = "" Then
MsgBox "Vyberte položku a akci opakujte.", vbInformation
Exit Sub
Else
End If

start = 27
polozka = Application.WorksheetFunction.Match(PolozkyNabidka.Value, Sheets("Položky").Range("B:B"), 0)

For i = 27 To Sheets("Faktura").Cells(62, 5).End(xlUp).Row

If Sheets("Faktura").Cells(start, 4) <> "" Or Sheets("Faktura").Cells(start, 5) <> "" Then
start = start + 1
Else
GoTo 1
End If
Next i

1:

Sheets("Faktura").Cells(start, 5) = Sheets("Položky").Cells(polozka, 2)
Sheets("Faktura").Cells(start, 11) = Sheets("Položky").Cells(polozka, 6)
Sheets("Faktura").Cells(start, 12) = Sheets("Položky").Cells(polozka, 3)
Sheets("Faktura").Cells(start, 13) = Sheets("Položky").Cells(polozka, 4)
Sheets("Faktura").Cells(start, 10) = TextBox11
Radek = 1
ActiveWindow.SmallScroll Down:=Radek

End Sub

Zaslat odpověď >

Poki(20.6.2011 9:15)#005293

cau,
moc jsem to nezkoumal, ale co takhle odstranit oznaceni listu Faktura [Sheets("Faktura").] vsude tam, kde se maji hodnoty vlozit do aktivniho listu???citovat

marficek119(20.6.2011 16:21)#005295

No, to mě také napadlo, ale čím nahradit, nebo stačí ponechat jen Sheets("") ???citovat

Poki(20.6.2011 16:25)#005296

To je easy, staci nechat jen Cells(start, 12), protoze pak se bere v uvahu aktivni list nebo pokud tomu neveris, tak muzes pouzit: ActiveSheet.Cells(start, 12)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.