Vlož přílohu, křišťálové koule jsou drahé, já ji nemám ;-)...
P.citovat
P.citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: samovolne zmeni vzorec
MS Excel
Téma: samovolne zmeni vzorec 
Zaslal/a 28.6.2019 18:20
Dobry den,
potrebujem poradit mam makro ktore je naviazane na vzorec a mam problem ze sa mi niekedy samovolne zmeni na tento vzorec =SUM('1:[10]10'!E13) a vtedy mi scitavanie vsetkych harkov do jedneho nefunguje. Spravny funkcny vzorec by mal byt =SUM('0:10'!E13)
vedel by mi niekto pomoct aby mi ten vzorec samovolne nemenilo lebo aj ked vlozim sravny sam sa upravi na zly.dakujem
(29.6.2019 9:53)#043626
(29.6.2019 15:37)#043629
Sub Sumar()
Dim D(), Pole(1 To 103, 1 To 4), RiadokD As Long, Riadok As Long
'Načítanie všetkých údajov z listu do poľa
ReDim D(1 To 120, 1 To 20)
D = ActiveSheet.Range("C20:V150").Value2
'Kopírovanie potrebných hodnôt do výsledkového poľa, s posunom cez medzery v zdroji
While Riadok < 103
Riadok = Riadok + 1
Select Case Riadok
Case 37: RiadokD = RiadokD + 10
Case 78: RiadokD = RiadokD + 9
Case Else: RiadokD = RiadokD + 1
End Select
Pole(Riadok, 1) = D(RiadokD, 1): Pole(Riadok, 2) = D(RiadokD, 5): Pole(Riadok, 3) = D(RiadokD, 10): Pole(Riadok, 4) = D(RiadokD, 20)
Wend
'Zápis nových údajov do listu Inventár a filtrovanie
With wsInventar
.Range("A9:D108").Value2 = Pole
.Range("A8:D108").AutoFilter Field:=1, Criteria1:="<>"
End With
If Range("I1").Value = "" Then
Range("I1").Value = Format(Date, "mmmm")
End If
End Subcitovat
Dim D(), Pole(1 To 103, 1 To 4), RiadokD As Long, Riadok As Long
'Načítanie všetkých údajov z listu do poľa
ReDim D(1 To 120, 1 To 20)
D = ActiveSheet.Range("C20:V150").Value2
'Kopírovanie potrebných hodnôt do výsledkového poľa, s posunom cez medzery v zdroji
While Riadok < 103
Riadok = Riadok + 1
Select Case Riadok
Case 37: RiadokD = RiadokD + 10
Case 78: RiadokD = RiadokD + 9
Case Else: RiadokD = RiadokD + 1
End Select
Pole(Riadok, 1) = D(RiadokD, 1): Pole(Riadok, 2) = D(RiadokD, 5): Pole(Riadok, 3) = D(RiadokD, 10): Pole(Riadok, 4) = D(RiadokD, 20)
Wend
'Zápis nových údajov do listu Inventár a filtrovanie
With wsInventar
.Range("A9:D108").Value2 = Pole
.Range("A8:D108").AutoFilter Field:=1, Criteria1:="<>"
End With
If Range("I1").Value = "" Then
Range("I1").Value = Format(Date, "mmmm")
End If
End Subcitovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
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.
RSS nejnovější články