Třeba takto.
Myslím si, že to od JOKER nebude fungovat, protože v databazi vybírá sloupec A a ty máš data v B,C,D,E,F. Vyzkoušej moje.
Tak jsem si stáhl přílohy a asi hodinu zkoumal který je jaký soubor, ale jsem z toho ...
vložit makro do
Private Sub Workbook_Open()
End Sub
přímo v ThisWorkbook
Dovolím si tady mírně změnit jedno přísloví:
1. Bez přílohy na wall nelez (Bez peněz do hospody nelez)
Takto?
Takto?
Mi funguje toto
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim NazevListu As String
NazevListu = ActiveCell.Value
If Len(NazevListu) > 0 Then
Sheets(NazevListu).Select
End If
End Subt
End Sub
Děkuji. S grafy jsem ve VBA ještě nepracoval. Ty makra byly normálně nahrány, ale spustit šlo jen to první.
Prosím zkušenější o radu. Proč graf pod druhým tl. nejde vytvořit? Děkuji.
Třeba takto. A je cesta. B je vytvářený adresář
Sub VytvorAdresar()
Dim A As String
Dim B As String
A = "C:\Users\JF\Desktop\wall\"
B = Range("A1")
If Len(Dir(A & B, vbDirectory)) = 0 Then
MkDir A & B
MsgBox "Adresář vytvořen."
Else: MsgBox "Adresář existuje."
End If
End Sub
Já jsem kdysi dělal něco se čtečkou a udělal jsem to tak, že kurzor musel být stabilně v jedné bunce (A1)ve vedlejší (A2) byl vzorec =A1 v proceduře Worksheet_Calculate jsem měl makro, které provedlo co jsem potřeboval
O jaký seznam se jedná? Je to jen v jednom sloupci, nebo ve více? Vlož nějaký vzor, jak to vypadá.
Nezlob se, ale už mne to přestává bavit. Už 5 x jsem to předělával a pokaždé máš další požadavky a ještě změníš tabulku. Pokaždé musím znovu procházet co jsi v kodu změnil a případně opravit.
Tak co toto?
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.