Hei,
Tarttisin tehdä syklisesti kiertävän makron.
Kierron ehtona olisi esim. A1>0, eli solussa A1 lukee jotain.
Tarttisin tehdä syklisesti kiertävän makron.
Kierron ehtona olisi esim. A1>0, eli solussa A1 lukee jotain.
Makron käynnistys
Jos A1>0
3452
0Äänestä
Muut lukivat myös
Odottaa vastausta
Näihin keskusteluihin ei ole vielä vastattu. Ole ensimmäinen.
Vastaukset 3
Vanhimmat
taulukon moduuliin
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
On Error GoTo virhe
Application.EnableEvents = False
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
If Target.Value "" Then
MsgBox "Tähän makro A1"
Application.EnableEvents = True
Exit Sub
End If
End If
virhe:
Application.EnableEvents = True
End Sub
Kiitos vastauksetasi, nyt vaan on niin että olen niin uuno vielä tässä vaiheeessa, että en osaa hyödyntää sinun esimerkkiäsi.
Ajattelin esittä kysymyksen vielä konreettisemmassa muodossa, jos tuohon makroon voisit tehdä asiaan kuuluvan lisäyksen.
Sub Tee_joukkokirje()
'
' Tee_joukkokirje Makro
' Henkilö A on nauhoittanut makron 21.3.2006.
'
'
josA10 on suurempi kuin nolla (eli jos A10 solussa lukee jotain käynnistä seuraavanlainen makro
Rows("10:10").Select
Selection.Copy
Sheets("Tulostusalue").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues,
korvaa
[MsgBox "Tähän makro A1"] makron nimellä esim.
Tee_Joukkokirje