0
ongedaan maken
Stemmen
Corrigeer alstublieft de 2e code, beide voor hetzelfde werkblad.
EERSTE CODE WERKT PERFECT
Particulier subwerkblad_Wijziging (ByVal-doel als bereik)
Als niet snijden (doel, bereik ("D1")) is niets dan
Selecteer Case Range ("D1")
Doos "0.5": Half
Case "1": Een
Case "1.25": OneTwentyFive
End Select
End If
End Sub
TWEEDE CODE WERKT NIET (corrigeer onderstaande)
Privé subwijziging (ByVal-doel als bereik)
Als niet snijden (doel, bereik ("D2")) is niets dan
Selecteer Case Range ("D2")
Case "9.53": negenpuntvijf
End Select
End If
End Sub
EERSTE CODE WERKT PERFECT
Particulier subwerkblad_Wijziging (ByVal-doel als bereik)
Als niet snijden (doel, bereik ("D1")) is niets dan
Selecteer Case Range ("D1")
Doos "0.5": Half
Case "1": Een
Case "1.25": OneTwentyFive
End Select
End If
End Sub
TWEEDE CODE WERKT NIET (corrigeer onderstaande)
Privé subwijziging (ByVal-doel als bereik)
Als niet snijden (doel, bereik ("D2")) is niets dan
Selecteer Case Range ("D2")
Case "9.53": negenpuntvijf
End Select
End If
End Sub
0
ongedaan maken
Stemmen
Hallo syedsalman,
Voor hetzelfde werkblad kunt u de code:
Particulier subwerkblad_Wijziging (ByVal-doel als bereik)
Als niet snijden (doel, bereik ("D1")) is niets dan
Selecteer Case Range ("D1")
Doos "0.5": Half
Case "1": Een
Case "1.25": OneTwentyFive
End Select
End If
Als niet snijden (doel, bereik ("D2")) is niets dan
Selecteer Case Range ("D2")
Case "9.53": negenpuntvijf
End Select
End If
End Sub
Voor verschillende werkbladen kunt u gewoon wijzigen "Privé subwijziging (ByVal-doel als bereik)" in uw tweede code naar "Particulier subwerkblad_Wijziging (ByVal-doel als bereik)".
Probeer het alsublieft. Eventuele vragen neem dan gerust contact met mij op.
Amanda
Voor hetzelfde werkblad kunt u de code:
Particulier subwerkblad_Wijziging (ByVal-doel als bereik)
Als niet snijden (doel, bereik ("D1")) is niets dan
Selecteer Case Range ("D1")
Doos "0.5": Half
Case "1": Een
Case "1.25": OneTwentyFive
End Select
End If
Als niet snijden (doel, bereik ("D2")) is niets dan
Selecteer Case Range ("D2")
Case "9.53": negenpuntvijf
End Select
End If
End Sub
Voor verschillende werkbladen kunt u gewoon wijzigen "Privé subwijziging (ByVal-doel als bereik)" in uw tweede code naar "Particulier subwerkblad_Wijziging (ByVal-doel als bereik)".
Probeer het alsublieft. Eventuele vragen neem dan gerust contact met mij op.
Amanda
0
ongedaan maken
Stemmen
Het werkt nu met jouw correctie
heel erg bedankt voor de hulp
Alstublieft.
Amanda
- Pagina:
- 1
Er zijn nog geen reacties op dit bericht geplaatst.