MS Excel

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

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

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje