Jestli sem dobře pochopil Tvůj záměr, tak na to nepotřebuješ makro ale stačí fce SVYHLEDAT. Otázkou ale je podle jakýho kritéria data (jména) přiřazovat, když na každým listě máš rozdílná čísla smluv.
Jen sem upravil tvoje makro, snad je to podle představ.
Ta klávesová zkratka na vložení aktuálního data jak tu zmínil Jeza je:
CTRL+; (klávesa přímo pod ESC)
koukni sem:
http://www.office4you.cz/rady-a-navody-ms-excel/264-excel-automaticky-se-rozsirujici-oblast.html
možná ti to pomůže.
Tlačítko office > možnosti aplikace excel > kontrola pravopisu a mluvnice > možnosti automatických oprav > automatické úpravy formátu při psaní > a konečně zatrhnout do tabulky zahrnout nové řádky a sloupce
Koukni sem:
http://pc.poradna.net/q/view/693287-excel-svyhledat-vice-hodnot
Možná ti to k něčemu bude.
Co tohle?
Private Sub Workbook_Open()
If List3.Visible = False Then
List2.Activate
Else
List3.Activate
End If
End Sub
Něco pro inspiraci
Co třeba takto ?
Makro se spustí kombinací CTRL+Q
Může mi prosím někdo znalí prozradit v čem spočívá úprava onoho maticového vzorce z "anglické verze" na českou?
Oba vzorce (původní i upravený) sem si několikrát prošel a nenašel žádnou odlišnost. Děkuji
Jen takový nápad, určitě bude třeba dodělat vzorce na výpočet ceny pokud s ní chceš nějak kalkulovat.
Ty složené závorky naznačují, že se jedná o vzorec maticový, který se ukončuje kombinací kláves CTRL+SHIFT+ENTER.
Označte buňku se svým vzorcem, který vrací chybu #HODNOTA, stiskněte F2 (editace vzorce) a poté již zmíněnou kombinaci kláves.
Excel 2007
Karta zobrazení a Ukotvit příčky.
co takto:
Chyba je v uvozovkách ("ActiveSheet.Name")
Sub smazat_listy()
Application.DisplayAlerts = False
For Each ws In ActiveWorkbook.Worksheets
If ws.Name = ActiveSheet.Name Or ws.Name = "Sheet2" Then
Else
ws.Visible = xlSheetVisible
ws.Delete
End If
Next ws
Application.DisplayAlerts = True
End Sub
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
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.