< návrat zpět

MS Excel


Téma: VBA - Prepsat range pod tlačítkem rss

Zaslal/a 25.4.2021 18:22

FantasykZdraví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 7

Zaslat odpověď >

#050552
avatar
Co takhle přidat příklad.citovat
#050560
elninoslov
Č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 Sub
Příloha: zip50560_bunka-pod-tlacitkom.zip (27kB, staženo 4x)
citovat

Uživatelské menu

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

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

cislovanie riadkov

martin1 • 18.1. 20:47

Podmíněné formátování

Baja • 18.1. 18:55

VBA - načtení dat ze souboru s proměnným názvem

Fantasyk • 18.1. 14:29

zápis čísla fce suma

Stalker • 18.1. 13:17

smazání více obrázků

Zdenda-R • 18.1. 9:47

výpis adresáře

Milan-158 • 18.1. 9:31

zápis čísla fce suma

Josef-Sekan • 18.1. 9:26