• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: VBA změna jedné buńky vyvolá změnu jiné

Zaslal/a CMM-Team 19.5.2020 8:43

Ahoj, napsal jsem si jednoduchý kód na změnu buňky:

Sub Vyřazeno()
Hodnota = Range("O16").Value
If Hodnota = "Ano" Then
Range("I16") = "-"
End If
End Sub

Funguje dobře, jen bych ho potřeboval rozvést...
Jde o to, že bych potřeboval aby mi fungoval cca pro 1000 řádků, ne jen pro tento jeden konkrétní. A hodilo by se mi, kdyby se kód spustil třeba při každé změně sloupce "O".

Smím požádat o radu ?
Děkuji
Používám Office 365

Zaslat odpověď >

---

marjankaj(19.5.2020 9:49)#046650

Je to naozaj jednoduchý kód. Ale k čomu je to dobré? Čo tým sleduješ? citovat

elninoslov(19.5.2020 9:54)#046651

Príklad, ktorý zvláda aj zmenu vo viacerých bunkách naraz. Skúste, ale je už zložitejší.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zmena As Range, ARE As Range, O(), I(), AreR As Long, y As Long, bol As Boolean

Set Zmena = Intersect(Columns(15), Target)

If Not Zmena Is Nothing Then
Application.EnableEvents = False

For Each ARE In Zmena.Areas
With ARE
If .Rows.Count = 1 Then
ReDim O(1 To 1, 1 To 1): O(1, 1) = .Value
ReDim I(1 To 1, 1 To 1): I(1, 1) = .Offset(0, -6).Value
Else
O = .Value
I = .Offset(0, -6).Value
End If

bol = False
For y = 1 To UBound(O, 1)
If O(y, 1) = "Ano" Then I(y, 1) = "-": bol = True
Next y

If bol Then .Offset(0, -6).Value = I
End With
Next ARE

Application.EnableEvents = True
End If
End Subcitovat

CMM-Team(19.5.2020 10:21)#046653

Perfektní takhle to funguje výborně, děkuji za pomoc.

@marjankaj Jde mi o to, že v seznamu měřidel ve sloupci počítám datum příští kalibrace, ale pokud měřidlo vyřadím, nechci aby mi nadále počítal datum příští kalibrace a zároveň tam nechci prázdnou buňku.citovat

marjankaj(19.5.2020 10:29)#046654

CMM-Team napsal/a:

@marjankaj Jde mi o to, že v seznamu měřidel ve sloupci počítám datum příští kalibrace, ale pokud měřidlo vyřadím, nechci aby mi nadále počítal datum příští kalibrace a zároveň tam nechci prázdnou buňku.

Tak to mi nenapadlo, že v stlpci "O" je "seznam měřidel" citovat

CMM-Team(19.5.2020 16:05)#046663

Aha, takže troll... už je mi to jasné :)citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse