Moi,
Tuntuu helpolle, mutta on niin vaikeaa eli:
- kun soluun F2 tulee teksti "Loppu", niin haluan sen jälkeen kirjoittaa soluun H2 "X". Miten tämä onnistuu? Soluun H2 en voi laittaa funktioita vaan minun pitää pystyä kirjoittamaan soluun H2 merkki X ehdon täytyttyä esim. makrolla? Jos käytän makrossa jotain loop -lauseketta, joka valvoo milloin soluun F2 tulee teksti "Loppu", jysähtää Excel (loop on koko ajan päällä). Eli miten onnistuisi?
Solu H2 on tavallaan koko ajan toisen sovelluksen käytössä ja siihen kun kirjoitan käsin X:n pääsen haluaamaani lopputulokseen. Nyt vain pitäisi saada Excel tekemään sama,
TV: HR
Tuntuu helpolle, mutta on niin vaikeaa eli:
- kun soluun F2 tulee teksti "Loppu", niin haluan sen jälkeen kirjoittaa soluun H2 "X". Miten tämä onnistuu? Soluun H2 en voi laittaa funktioita vaan minun pitää pystyä kirjoittamaan soluun H2 merkki X ehdon täytyttyä esim. makrolla? Jos käytän makrossa jotain loop -lauseketta, joka valvoo milloin soluun F2 tulee teksti "Loppu", jysähtää Excel (loop on koko ajan päällä). Eli miten onnistuisi?
Solu H2 on tavallaan koko ajan toisen sovelluksen käytössä ja siihen kun kirjoitan käsin X:n pääsen haluaamaani lopputulokseen. Nyt vain pitäisi saada Excel tekemään sama,
TV: HR
Vastaukset 4
Vanhimmat
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$2" And Target.Value = "Loppu" Then Range("H2") = "X"
End Sub
Moi,
Näyttää lupaavalle, onko tämä makro vaiko joku oma uusi funktio?
TV: HR
Moi,
Joo tein/tallennin sen taulokon sisään. Näytti hyvälle siihen saakka, kunnes käynnistin toisen sovelluksen taulukkoon, jolloin tuli "Run-Time Error '13' Type Mismatch" virhe, ???
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("F2")) Is Nothing And Range("F2") = "Loppu" Then Range("H2") = "X"
End Sub