MS Excel

Ospravedlnujem sa teraz som si vsimol ze mi neskopirovalo original povodny kod od lugra ten prvy ko co som poslal som sa snazil spojit odkaz s povodnym kodom.

ak este raz posielam spravny

Sub Import()

Dim CESTA As String
Dim SOUBOR As String
Dim ZDROJ As String
Dim CIL As String
Dim RADEK As Long
Dim POCET As Long
Dim wsDATA As Worksheet
Set wsDATA = Worksheets("List1")

POCET = wsDATA.Cells(Rows.Count, "A").End(xlUp).Row

If POCET > 0 Then wsDATA.Range("A2").Resize(POCET, 3).ClearContents

MESIC = wsDATA.Range("E1")
CILMESIC = Sheets("Report").Range("B1")

CESTA = "C:\Users\ASUSPC\Documents\MEGA\import\Report\"
ZDROJ = "Report " & MESIC & ".xlsx"
CIL = "Vyučtovanie " & CILMESIC & ".xlsm"

SOUBOR = CESTA & ZDROJ

If Dir(SOUBOR) = "" Then MsgBox "Soubor " & SOUBOR & " neexistuje!", vbCritical: Exit Sub

Application.ScreenUpdating = False
Workbooks.Open Filename:=SOUBOR
POCET = Workbooks(ZDROJ).Sheets("Položky dokladu").Cells(Rows.Count, "A").End(xlUp).Row - 2
Workbooks(CIL).Sheets("List1").Range("A2").Resize(POCET, 3).Value = Workbooks(ZDROJ).Sheets("Položky dokladu").Range("B3").Resize(POCET, 3).Value
Workbooks(ZDROJ).Close SaveChanges:=False
Application.ScreenUpdating = True

ActiveWorkbook.RefreshAll

End Subcitovat

Ahojte tak toto by zaujimalo aj mna ako na viacerych PC pouzit rovnaku cestu na roznych uzivatelov v C: users. V praci mame server kde mame ulozene excel zosity lebo zakazdym musime upravovat cestu suboru odkial kopirujeme data ako C:\Users\ucto7\data\import\prijem\citovat

Zdravim co sa tyka mojho problemu tak na 3 pc mam nainstalovanu MEGU a vsetky subory vtomto priecinku sa synchronizuju s cloudom. Ja potrebujem upravit vyssie uvedene makro pre roznych uzivatelov aby som nemusel na kazdom pc upravovat makro s cestou. Prikladam povodne cesty:

PC1: C:\Users\Administrator\Documents\MEGA\Import\Report\
PC2: C:\Users\ASUS PC\Documents\MEGA\Import\Report\
PC3: C:\Users\Lenovo\Documents\MEGA\Import\Report\

a tu potrebujem vytvorit jednu cestu pre 3 pouzivatelov . Lebo nazvy PC su odlisne od pouzivatelacitovat

Mega je to iste ako OneDrive, DropBox len v zakladnom baliku pouziva 20GB a ma zatial neobmedzene zariadenia predtym som pouzival DropBox len ho obmedzili na 3 pc.
PC1: uzivatelsky ucet Administrator nazov PC je PCJano
PC2: uzivatelsky ucet AsusPC nazov PC je Asus
PC3: uzivatelsky ucet Lenovo nazov PC je Lenovo NTB

trosku sa to myly aj mne chcel som zmenit nazvy uctov len je to dost komplikovane. Priklady ktore ste mi uz poskytli tak mi v ceste zadava tieto nazvy? PCJano, Asus a Lenovo NTB a ja potrebujem aby mi zadavalo v ceste Administrator, AsusPC alebo Lenovocitovat

Je tu este daka sanca na pomoc? Dakujemcitovat