You are here:Home-Domande su Excel VBA e MACRO-[RISOLTO] controllo cella possibile sia con dato maiuscolo che minuscolo
[RISOLTO] controllo cella possibile sia con dato maiuscolo che minuscolo2019-02-05T15:23:38+01:00

Home Forum Domande su Excel VBA e MACRO [RISOLTO] controllo cella possibile sia con dato maiuscolo che minuscolo

Visualizzazione 2 filoni di risposte
  • Autore
    Post
    • Avatarteto21162
      Partecipante
        Post totali: 88

        Salve Ragazzi,

        uso il codice sotto per controllare il contenuto di una cella G3, la cella è formattata come generale e il contenuto è sempre un codice alfabetico incollato da un codice macro.

        Il codice di confronto cella BC41 è in maiuscolo

        Vorrei che il codice funzionasse anche se in cella G3 il codice incollato fosse minuscolo.

        Grazie a tutti

        —————————————————————————————————————————————

        Public Sub CONTROLLA_presenza_dicitura_P()

        Dim riga As Integer

        Windows(“APPUNTAMENTI.xls”).Activate

        Sheets(“SMS”).Activate

        miacella = Range(“BC41”).Value

        With Sheets(“SMS”)

        If Not IsEmpty(miacella) Then

        If .Range(“G3″).Value = miacella Then

        MsgBox (” OK DATO presente”)

        With Sheets(“SMS”)

        .Range(“BE41”).Copy

        End With

        With Sheets(“SMS”)

        .Range(“E4”).PasteSpecial Paste:=xlValues

        End With

        End If

        End If

        End With

        Application.CutCopyMode = False

        End Sub

         

         

         

         

      • BySalvBySalv
        Amministratore del forum
          Post totali: 697

          Ciao ad inizio del Modulo sotto “Option Explicit” aggiungi “Option Compare Text”, adesso Excel non farà differenza in tutto i file che la scritta sia in Maiuscolo o Minuscolo.

          Altrimenti, nella macro, dovresti prima convertire il dato in Maiuscolo con “Ucase” e poi fare il confronto, esempio

          UCase(miacella) per Maiuscolo “UpperCase”
          LCase(miacella) per Minuscolo “LowerCase”

          Ciao By Sal

          Ciao By Sal (8-)
          se ti piace la soluzione aiuta a sostenere il Forum con una DONAZIONE a piacere, Grazie

        • Avatarteto21162
          Partecipante
            Post totali: 88

            Grazie By sal,

            problema risolto

            Teto :good:

        Visualizzazione 2 filoni di risposte
        • Devi essere connesso per rispondere a questo topic.