Word
Excel
PowerPoint
Access
Outlook
ECDL
Poradna - Automatické přiřazení souboru podle názvu souboru v buňce
Vložení příspěvkuhlavní 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
|
