MS Excel

Dobrý den, nevím, zda jsem popsal srozumitelně, ale jde mi o to, že jakmile do červeného pole cmbCZmeny dám číslo změny (např. 1), tak se budou hledat data patřící do SpZn v sloupci D a do Kontroly1 v sloupci CC.
Zkusil jsem si to navrhnout, ale nejde mi to.

Private Sub cmbCZmeny_Change()
' reaguje na změnu, pokud je vložena hodnota > událost > provede se načtení tohoto skriptu
' proměnné
Dim id As Integer, i As Integer, z As Integer, pomoc As Boolean
Dim arrDruhZmenaProdlouzeni(5) As String

arrDruhZmenaProdlouzeni(0) = "Žádost 0 Prodloužení 1"
arrDruhZmenaProdlouzeni(1) = "Žádost 0 Prodloužení 2"
arrDruhZmenaProdlouzeni(2) = "Žádost 1 Prodloužení 3"
arrDruhZmenaProdlouzeni(3) = "Žádost 1 Prodloužení 4"
arrDruhZmenaProdlouzeni(4) = "Žádost 2 Prodloužení 5"
arrDruhZmenaProdlouzeni(5) = "Žádost 2 Prodloužení 6"

i = 1 'do i vloží 1
z = 1
id = UserForm1.txtSpZn.Value ' načte hodnotu
zmenaid = UserForm1.cmbCZmeny.Value
pomoc = False ' předpoklad že není nalezeno > dojde k vymazání

If Cells(i, 4).Value <> "" Then
Do While Cells(z, 81).Value <> ""
If Cells(z, 81).Value = zmenaid Then
pomoc = True ' nalezeno tak se nic mazat nebude
End If
z = z + 1
Loop
End If

'************ ZMĚNY Prodloužení
For m = 1 To 6
Set kontrola = .Range("D2:D" & Cells(Rows.Count, "A").End(xlUp).Row).Find(id, searchDirection:=xlPrevious)
Do Until kontrola Is Nothing
If .Range("B" & kontrola.Row).Value = arrDruhZmenaProdlouzeni(m) Then
UserForm1.Controls("txtZmenaLhutaProdlouzeni" & (m)).Value = .Range("AE" & kontrola.Row).Value
UserForm1.Controls("txtZmenaOdeslaniProdlouzeni" & (m)).Value = .Range("AF" & kontrola.Row).Value
UserForm1.Controls("txtZmenaUsneseniProdlouzeni" & (m)).Value = .Range("AG" & kontrola.Row).Value
UserForm1.Controls("txtZmenaDoDataProdlouzeni" & (m)).Value = .Range("AH" & kontrola.Row).Value
UserForm1.Controls("txtZmenaRozhodnutiProdlouz" & (m)).Value = .Range("AI" & kontrola.Row).Value
Exit Do
End If
Set kontrola = .Range("D1:D" & kontrola.Row - 1).Find(id, searchDirection:=xlPrevious)
Loop
Next m
'************* konec ZMĚNY prodloužení

End Subcitovat

rozhodně nemůže být cyklus for m=1 to 6 když m následně používáte jako index pole. Pole je standardně indexované od 0.
Takže for m=0 to 5 nebo If .Range("B" & kontrola.Row).Value = arrDruhZmenaProdlouzeni(m-1)citovat

Takže takový nástřel. Vyberu Sp.Zn "k" a pak si mohu vybírat změnu 1 - 15 v červeném políčku.
Nejsou ošetřeny chyby, takže pro Sp.zn "z" to nefunguje.

Je potřeba doplnit načítání jednotlivých údajů v proceduře cmdCZmeny_change. Je to tam naznačené, musí se dopsat všechny další možnosti podle stejného vzoru.

Do jednotlivých prvků se načítají data z pole arrZmeny
s tím, že:
v arrZmeny(1,i) jsou data ze sloupce B
arrZmeny(2,i) je sloupec AE
arrZmeny(3,1) je AF
4 je AG
5 je AH
6 je AI
7 je BU
8 je CC
v arrZmeny(9,i) je číslo změny vytažené ze sloupce CC

takže to zkuste doplnit, pak se pohnem dál....citovat

V tabulce v B16 jsou v textu "Změna - Žádost 0" dvě mezery ořed pomlčkou a v Case Select je jen jedna mezera. Text je jiný, proto samozřejmě nemůže fungovat.

Druhý problém: ReDim Preserve arrZmena(1 To 9, 1 To j) když do pole načítáte další prvky, musí být na to nastavené. Je potřeba změnit číslo 9 na 12: ReDim Preserve arrZmena(1 To 12, 1 To j)Normálně by to házelo chybu, ale zrovna v tomto místě je vypnuto hlášení chyb (kvůli kolekci), tak se chyba objeví až při pokusu načíst tyto (ne)zapsané hodnotycitovat

????????
Co to je, vždyť to nikde není. Nebo jsem slepý?
Na kterém řádku to je?

Nic rozmazaného nemám.citovat