WWW pro školy
Jak na Office - tutoriály, video návody











Vytvoř si  geekové tričko

Poradna - Automatické přiřazení souboru podle názvu souboru v buňce

hlavní kategorie | zpět | + odpovědět na toto téma
Automatické přiřazení souboru podle názvu souboru v buňce - diskuze na toto téma
Ahoj, musím vytvořit makro, kde se po napsání názvu souboru do sloupce K přiřadí automaticky soubor stejného názvu - všechny jsou v jedné složce. Našel jsem na netu toto, ale nevím, jak to u mě zprovoznit. MS mám v angličtině. Děkuju za rady, Private Sub Worksheet_Change(ByVal Target As Excel.Range) MyPath = "[file path]" StartRow = 8 EndRow = 200 MyEnd = ".xlsx" x = 0 For i = StartRow To EndRow If Len(Cells(i, 4).Value) > 0 Then MyFileName = "" MyFileName = Dir(MyPath & Cells(i, 4).Text & MyEnd, vbNormal + vbDirectory) If MyFileName <> "" Then x = x + 1 ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 4), _ Address:=MyPath & Cells(i, 4).Text & MyEnd End If End If Next i End Sub

Michal | 18.9.2018 08:05  
 
 
Doplním foto - formátování nevyšlo.
Odpověď