• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Zkopírovat tabulku automaticky po vyplnění buňky

Zaslal/a Jakub-H 21.3.2014 13:54

Zdravím,

jsem v VBA nováček (vlastně všeobecně v programovacích jazycích), ale pustil jsem se do správy databáze a potřebuji poradit.

Věc se má tak, že podle zadaného kódu do buňky A excel vyplivne do buňek vedle odpovídající informace o stroji s tímto kódem (například do buňky B název firmy) - to mám zadané pomocí funkce SVYHLEDAT.

Potřebuji vytvořit makro, které když v buňce B bude firma, vyplivne tabulku se všemi stroji, které se nachází v odpovídající firmě. Až sem jsem to zvládnul, ale bylo by skvělé, kdyby se makro spouštělo automaticky v případě, že v buňce B bude firma, která by odpovídala seznamu firem (<- to není úplně potřeba, dokonce i věřím, že bych se toto dokázal naučit i sám). Nevím jestli je to srozumitelné

Ve zkratce potřebuji níže uvedené makro zakomponovat do "WorkSheet_Change" a vůbec se mi to nedaří. Mohl byste mi prosím s tím někdo poradit?

Private Sub Zobraz_tabulku_se_stroji_ve_firmě()

Dim Firma, Heslo As String
Firma = Range("F3")
Heslo = "heslo"

Application.ScreenUpdating = False

ThisWorkbook.Worksheets("Stroje").Unprotect PASSWORD:=Heslo

ActiveSheet.Range("H10").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Clear

Sheets("Stroje").Select
ActiveSheet.Range("$B$2:$J$78").AutoFilter Field:=3, Criteria1:=Firma
Range("B3").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Vyhledávání").Select
Range("H10").Select
ActiveSheet.Paste

ThisWorkbook.Worksheets("Stroje").Protect PASSWORD:=Heslo

End Sub

Předem děkuji za odpovědi.

JH

PS: Jak říkám, jsem úplný začátečník a je mi jasné, že tento kód není moc efektivní, dokážu si i přdstavit, že by mě někdo nazval prasetem . Pokud byste někdo věděl a chtěl poradit jak ho zefektivnit, byl bych moc rád. Přesto potřebuji se v tom jako začátečník dokázat orientovat.

Uzamčeno - nelze přidávat nové příspěvky.

---

Opičák(22.3.2014 10:32)#018424

Myslím, že by to chtělo přílohu.citovat

Jakub-H(23.3.2014 12:11)#018426

Jo, soubor najdete tady

To makro je trochu upravené, je stále ve vývoji.citovat

cmuch(23.3.2014 13:59)#018427

Tak toto dej do modulu listu "vyhledavani"
Private Sub Worksheet_Change(ByVal Target As Range)
'je zmena v pozadovane bunce?
If Target.Address = "$B$3" Then
Call Zobraz_tabulku
End If
End Sub
A to makro zobraz tabulku presun do obycejneho modulucitovat

Jakub-H(24.3.2014 18:44)#018467

cmuch: Funguje to A pro moje účely to takhle asi postačí. Díky moc.citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse