macro starten

[bo69]

Wat doe ik fout, wat moet hier anders?

Sub Verander()
    
If Range("A2").Value = "Ja" Then
 Application.Run "Macro1"

End If

End Sub

Sub Macro1()
'
' Macro1 Macro
'

'
    Range("A6").Select
    ActiveCell.FormulaR1C1 = "1"
    Range("A3").Select
End Sub

 

[edmoor]

We zien niet wat er in Range("A2") staat en ook niet waar Macro1 staat.
Zo?

Sub Verander()
    If LCase(Range("A2").Value) = "ja" Then Macro1
End Sub

 

[bo69]

Bedankt het werkt, waar staat LCase voor.

 

[edmoor]

Dat is een functie die de opgegeven waarde converteert naar kleine letters.
Ja is niet gelijk aan ja.

 

[snb]

test, test, test,

Sub M_test()
    If Range("A2").Value = "Ja" Then Macro1
    If Range("A2").Text = "Ja" Then Macro1
    If Range("A2") = "Ja" Then Macro1

    If [A2].Value = "Ja" Then Macro1
    If [A2].Text = "Ja" Then Macro1
    If [A2] = "Ja" Then Macro1

    If cells(2,1).Value = "Ja" Then Macro1
    If cells(2,1).Text = "Ja" Then Macro1
    If cells(2,1) = "Ja" Then Macro1

    If LCase(Range("A2")) = "ja" Then Macro1
    If UCase(Range("A2")) = "JA" Then Macro1
End Sub

 

[OctaFish]

Bedankt het werkt, waar staat LCase voor.

Ga eens op een functie staan met de cursor en druk op <F1>. Dit soort vragen kun je op die manier heel makkelijk (en vooral: veel sneller voor jezelf) op die manier beantwoorden .

 

[bo69]

Dat is een functie die de opgegeven waarde converteert naar kleine letters.
Ja is niet gelijk aan ja.

bedankt voor de uitleg

 

[bo69]

Ga eens op een functie staan met de cursor en druk op <F1>. Dit soort vragen kun je op die manier heel makkelijk (en vooral: veel sneller voor jezelf) op die manier beantwoorden .

mercie

 

[bo69]

in Macro andere macro starten

Mijn excel begint traag te lopen, ik las dat het sneller kan als je een macro oproept in andere macro. Heb een gedeelte uigezet, dit gedeelte in andere macro gezet. maar lukt niet om de macro te starten.

Sub Foto2()
'
' RoasterFoto1 Macro
'
Application.ScreenUpdating = False
ActiveSheet.Unprotect Password:="drop"


'Foto info naar voren
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "2"
ActiveSheet.Shapes("Afbeelding 1000").ZOrder msoSendToFront

    ActiveSheet.Shapes("Afbeelding 1000").Select
     Selection.Cut
    Range("j9").Select
    ActiveSheet.Paste

'Foto uit c directory en formaat aanpassen en macro toevoegen
ActiveSheet.Pictures.Insert( _
        "C:\Users\m\Pictures\Foto2.jpg").Select
        
  '  Selection.ShapeRange.LockAspectRatio = msoTrue
  '  Selection.ShapeRange.Height = 75
  '  Selection.ShapeRange.Width = 150
  '  Selection.ShapeRange.Rotation = 0#
   ' Selection.Name = "Afbeelding 2"
   ' Selection.OnAction = "Foto2Weg"
   ' Selection.Cut
   ' Range("g10").Select
    'ActiveSheet.Paste
   ' Range("g10").Select
    
     Application.Run ("RunMacro")
    
Range("L30").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="drop"
Application.ScreenUpdating = False
End Sub

 

[bo69]

opgelost