Sub Klik()
Makro3
Makro2
Makro1
End Sub
Z deklarácie dajte preč "As Long"
Dim CenaPartner
a pred tento riadok
Range("AQ2").Value = "objednej " & CenaPartner
dajte tento
If CenaPartner = "" Then Exit Sub
EDIT:
Alebo použite Application.InputBox namiesto InputBox, a Type=1 (číslo), potom pri zrušení je návratová hodnota False:
CenaPartner = Application.InputBox("Otevři případ na www,zadej objednávku PARTNER.", _
"Cena Partner - tvá nákupní cena z objednávky eset.cz", Type:=1)
If CenaPartner = False Then Exit Sub
Teraz na to nemám čas (ani chuť), ale už som to pozeral. Ak sa súbor otvorí z OD adresára, tak si bunky so vzorcom na zistenie cesty prečítajú ako cestu tú na net (https://...), nie na disk. A z toho sa nijako nedá určiť skutočné umiestnenie v PC. Bude sa musieť inak (manuálne alebo makrom) zadať cesta k skutočnému umiestneniu "C:\Users\Fero Mrkva\OneDrive\niečo\". A potom spracovať klasicky. Ďalej bude nutné rozvetviť spracovanie tak, aby na začiatku inak spracovával adresáre, ak sa jedná o SP.
Asi jedine tak, že by boli validné riadky kopírované na iný list. Teda nevalidné sa neskryjú ale nezahrnú.
Nejaké príklady.
Vo webovom Exceli Vám stačí 2Click na bunku naformátovanú ako dátum a DatePicker sa zobrazí.
Skôr preto, že nemáte XLOOKUP. Verzia Office ?
A určite sú aj ďalšie možnosti...
EDIT:
napr. ďalšie
=SUMIFS(tabulka!$C$2:$C$6;tabulka!$A$2:$A$6;"<="&A2;tabulka!$B$2:$B$6;">="&A2)
=INDEX(tabulka!$C$2:$C$6;6-COUNTIF(tabulka!$B$2:$B$6;">="&A2))
=XLOOKUP(A2;tabulka!$B$2:$B$6;tabulka!$C$2:$C$6;NA();1;1)
Chýba Vám predsa makro v module ThisWorkbook:
Option Explicit
Private Sub Workbook_Open()
CreateMyTag
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
CreateMyTag
Call RefreshRibbon(Tag:=MyTag)
End Sub
A keď tam vyberiete prihlásenie cez MS účet, alebo Win ?
Nemôžem prísť na to, ako znovu vyvolám to okno s voľbou prihlásenia, ak už som sa ho raz zbavil...
Ak zadáte do prázdneho dotazu toto, načíta Vám zoznam súborov (alebo čokoľvek) ?
Zdroj = SharePoint.Files("https://lannuttigroup-my.sharepoint.com/personal/radek_braum_lannutti_com/Documents/pokus/relativni cesta/kj", [ApiVersion = 15])
Môžete sa s tým hrajkať
OK. Napíšte mi teraz presne, ktoré tlačítka majú byť aktívne na ktorom liste.
Očakávam takéto nejaké inštrukcie:
List ____ Tlačítka
..................
Plán ____ "Plán", "Tisk do PDF"
Data ____ "data", "Tisk do PDF"
Doklad __ "data", "data+doklad", "Tisk do PDF", "složka PDF"
Inak som tú origo prílohu zjednodušil do pochopiteľnejšej podoby (snáď). Tak by som obdobne urobil aj Vašu.
Dokážete si odtiaľto vybrať čo potrebujete?
Použil som rovnaký objekt ako Vy. Aký iný obdĺžnik má ešte E2003?
Či to ide presne takto aj na iné objekty sa paušálne asi povedať nedá. Uveďte príklad, o aký objekt máte záujem a pozriem v štruktúre vlastností daného objektu.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim shape As Object
If Not Intersect(Range("A1"), Target) Is Nothing Then
On Error Resume Next
Set shape = Shapes("Popisek_1")
If Err.Number <> 0 Then
Set shape = Shapes.AddShape(msoShapeRectangle, 50, 50, 200, 50)
shape.Name = "Popisek_1"
End If
On Error GoTo 0
shape.OLEFormat.Object.Text = Range("A1")
shape.Visible = True
Set shape = Nothing
Else
On Error Resume Next
Shapes("Popisek_1").Visible = False
On Error GoTo 0
End If
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.