Příspěvky uživatele
< návrat zpět
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?
Tak jsem se o něco pokusil. Stačí to takto? Spust makro zauctuj.
Chyba je v tom, že než začne můj kod tak vybíráš list vzor "Sheets("vzor").Select". To můžeš až na konci.
No tak snad už teď??
Něco takového? Oba soubory musí být ve stejném adresáři a mělo by to fungovat.
Stačí takto?
Uživatelské menu
\nFormulář 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.
RSS nejnovější články