Příspěvky uživatele

AL napsal/a:

Milan, ty budeš veľký vtipálek. Zdá sa iba mne, že tvoja prvá príloha je "trošičku" iná, než tá druhá?
Skús toto:Option Explicit

Sub PrijemNaSklad()
Dim shPrijem As Worksheet, shSklad As Worksheet, rngAdr As String, srcArr, tgtArr, i As Integer, j As Byte
Set shPrijem = Sheets("prijem")
Set shSklad = Sheets("sklad")
rngAdr = "E5:F999"
srcArr = shPrijem.Range(rngAdr)
tgtArr = shSklad.Range(rngAdr)
For i = LBound(srcArr, 1) To UBound(srcArr, 1)
For j = LBound(srcArr, 2) To UBound(srcArr, 2)
tgtArr(i, j) = tgtArr(i, j) + srcArr(i, j)
Next j
Next i
shSklad.Range(rngAdr) = tgtArr
End SubAko malé cvičenie pre prácu s arrays mi to stačilo, tým končím. V posledných dňoch som už pracoval s Excelom viac, než dosť
Nie som si síce istý, že som pochopil pomerne vágny popis potřebuji na listech opět prijem a sklad bunkdy E5 až E999 a F5 až F999 na obou listech :), ale ten kódik je pomerne jednoduchý a nemal by byť problém si ho doupraviť.