< návrat zpět
MS Excel
Téma: VBA - Prepsat range pod tlačítkem
Zaslal/a Fantasyk 25.4.2021 18:22
Zdravím,
asi mi to už nemyslí, ale nějak se mi to furt nedaří..
Mám:
ActiveSheet.Range("S" & ActiveSheet.Buttons(Application.Caller).TopLeftCell.Row).Offset(0, 0).Value
pod tlačítkem se nachazí číslo 1 potřebuji to přepsat na 2, jelikož mám podmínku když 1 tak něco udělá a chci, aby to přepsalona 2 a když 2 tak něco jiného
Díky moc za jakoukoliv radu
Jiří497(26.4.2021 23:25)#050552 Co takhle přidat příklad.
citovat
Čo znamená "
pod tlačítkom"?
Sub PodTlacitkom1()
With ActiveSheet.Buttons(Application.Caller).TopLeftCell
Select Case .Value
Case 1: .Value = 2
Case 2: MsgBox "Nazdar Fero, ako sa máš?", vbQuestion
Case Else:
End Select
End With
End Sub
Sub PodTlacitkom2()
With ActiveSheet.Buttons(Application.Caller).TopLeftCell.Offset(1, 0)
Select Case .Value
Case 1: .Value = 2
Case 2: MsgBox "Nazdar Fero, ako sa máš?", vbQuestion
Case Else:
End Select
End With
End SubPříloha: 50560_bunka-pod-tlacitkom.zip (27kB, staženo 12x) citovat