Je to naozaj jednoduchý kód. Ale k čomu je to dobré? Čo tým sleduješ? 
citovat
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: VBA změna jedné buńky vyvolá změnu jiné
Tak to mi nenapadlo, že v stlpci "O" je "seznam měřidel"
citovat
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
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
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
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 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
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"
citovatUž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