< návrat zpět

MS Excel

Téma: Error VBA - object variable or with..... rss

Zaslal/a Fantasyk 31.10.2021 1:48

FantasykZdravím,

píše mi to error: object variable or with block variable not set u tučně vyznačeného řádku.

Ale jednou mi to jde a podruhé zase ne.
Omlouvám se mám velice rozsáhlý kód s daty, které nemůžu publikovat.

Dim I As Integer, o As Integer, p As Integer, l As Integer, n As Integer, m As Integer, N1 As Integer, datumbunka As Date

Application.ScreenUpdating = False
Active = ActiveSheet.Name

B = WorksheetFunction.CountIf(Range("A2:U2"), "B")

If B <> 1 Then
MsgBox "Smena B není obsažena v Reportu!", vbCritical
Exit Sub
End If

I = WorksheetFunction.Match("B", Sheets(Active).Range("A2:U2"), 0) - 1
o = WorksheetFunction.Match("B", Sheets(Active).Range("A2:U2"), 0)
m = WorksheetFunction.Match("B", Sheets(Active).Range("A2:U2"), 0) + 1
n = WorksheetFunction.Match("B", Sheets(Active).Range("A2:U2"), 0) + 2
N1 = WorksheetFunction.Match("B", Sheets(Active).Range("A2:U2"), 0) + 3
'zápis do STATISTIKY

datumbunka = Range("Y2").Value

With Sheets("STATISTIKA_B").Range("A:A")
Set Rng = .Find(What:=datumbunka)
'
Sheets("STATISTIKA_B").Cells(Rng.Row, 2).Value = Sheets(Active).Cells(47, o).Value
Sheets("STATISTIKA_B").Cells(Rng.Row, 3).Value = Sheets(Active).Cells(12, o).Value
Sheets("STATISTIKA_B").Cells(Rng.Row, 4).Value = Sheets(Active).Cells(64, o).Value
Sheets("STATISTIKA_B").Cells(Rng.Row, 5).Value = Sheets(Active).Cells(83, o).Value
Sheets("STATISTIKA_B").Cells(Rng.Row, 6).Value = Sheets(Active).Cells(13, n).Value + Sheets(Active).Cells(13, N1).Value
End With


Dík za jakékoliv info, které mi pomůže

Zaslat odpověď >
Stalker(31.10.2021 11:16)#051414
Stalker
V editoru si zobraz okno Locals a kontroluj, jakých hodnot nabývají proměnné.
Zaměřil bych se na Rng.citovat
elninoslov(1.11.2021 1:46)#051416
elninoslov
Na to je najlepšia príloha ...
nemusí to nájsť datumbunka
.Find(What:=datumbunka)
a rng bude nothing. vymalované.
Možno treba konverziu dátumu na Long. Treba prílohu, to bude prkotina...citovat
Fantasyk(1.11.2021 5:02)#051419
Fantasyk
Budu u PC až o víkendu ( Long mi negungoval 7 ) zkusím potom nějak udělat přílohu.citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

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.

On-line nástroje