Evidenziare riga e colonna

Hai un problema con Excel?

Nuova discussione

Evidenziare riga e colonna
di Max (utente non iscritto) data: 07/06/2016 09:46:16
Ciao a tutti
ringrazio comunque per la risposta, vi chiedo se qualcuno può aiutarmi ho diversi fogli di Excel ed ho bisogno di evidenziare la riga
e colonna per non inserire i dati in modo errato ho trovato in rete il file che allego ( funziona con il doppio clic sulla cella e mi evidenzia la croce
su colonna e riga ) solo che quando passo sulla colonna AA non me la evidenzia ma ritorna sulla prima premetto che il doppio clic è
la cosa che cerco perchè così posso inserire i dati di cui ho bisogno e non perdo le varie formule e la formattazione che ho.

Scusate nel titolo ho inserito excel 2016 ma in realtà lavoro con diverse versioni e se non erro quella per lavoro è del 2012

Grazie a tutti

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ComInd = ActiveCell.Address
Riga = ActiveCell.Row
Colonna = Mid(ActiveCell.Address, 2, 1)
Range(Colonna & ":" & Colonna & "," & Riga & ":" & Riga).Select
Range(ComInd).Activate
End Sub

di patel data: 07/06/2016 10:58:58
prova questa

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ComInd = ActiveCell.Address
p = InStrRev(ComInd, "$")
Riga = ActiveCell.Row
If p = 3 Then
  Colonna = Mid(ActiveCell.Address, 2, 1)
Else
  Colonna = Mid(ActiveCell.Address, 2, 2)
End If
Range(Colonna & ":" & Colonna & "," & Riga & ":" & Riga).Select
Range(ComInd).Activate
End Sub

di Toscanaccio (utente non iscritto) data: 07/06/2016 11:17:35
Ciao!
Premetto che con le funzioni del vba non me la intendo molto.
Comunque ho fatto 2 prove e mi sembra che come modificato funzioni.
Ho semplicemente usato un piccolo escamotage.
Prova a vedere se ti sembra ok.
Facci sapere,
E' da un'oretta che cerco di postare qs messaggio ma non viene caricato dal sistema: speriamo che questa volta vada a buon fine
Massimo

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ActiveCell.Offset(1, 0).Select
ActiveCell.Offset(1, 0).Select
ComInd = ActiveCell.Address
Riga = ActiveCell.Row
Colonna = Mid(ActiveCell.Address, 2, 1)
Range(Colonna & ":" & Colonna & "," & Riga & ":" & Riga).Select
Range(ComInd).Activate
End Sub

di Marius44 data: 07/06/2016 11:43:51
Salve a tutti
credo che il problema sia nella doppia lettera delle colonne dopo la 26ma
Prova con la macro sotto

Fai sapere. Ciao,
Mario

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim Indirizzo, Riga, Colonna
    Indirizzo = Target.Address(0, 0)
    Riga = Target.Row
    Colonna = Replace(Indirizzo, Riga, "")
    Range(Riga & ":" & Riga & "," & Colonna & ":" & Colonna).Select
    Range(Intersect(Range(Riga & ":" & Riga), Range(Colonna & ":" & Colonna)).Address).Activate
End Sub

di Toscanaccio (utente non iscritto) data: 07/06/2016 12:37:24
Chiedo scusa: avevo provato su colonne inferiori alla AA
Evidenziare riga e colonna
di Max (utente non iscritto) data: 08/06/2016 09:30:01
Grazie a tutti

ma ho provato ad inserire le macro che mi avete inviate ma tutte vanno in debug,
forse sbaglio io in qualcosa ?
Compare " sub or function not defined ", La prova che ho fatto è su Excel 10.1.0
Grazie
di alfrimpa data: 08/06/2016 10:21:16
Ciao Max

Le macro che ti sono state date non vanno inserite in un modulo standard ma nel modulo del foglio interessato.

Se non riesci allega il tuo file.

Alfredo
di patel data: 08/06/2016 10:22:59
le hai messe in sostituzione della tua ? se non riesci allegai il file e te lo restituiamo funzionante
evidenziare riga e colonna
di max (utente non iscritto) data: 08/06/2016 10:43:09
Grazie a tutti per l'aiuto ho inserito il file.
di Marius44 data: 08/06/2016 10:53:40
Ciao Max
Guarda il file Prova_Marius allegato
Ciao,
Mario
evidenziare riga e colonna
di max (utente non iscritto) data: 08/06/2016 11:02:59
Ciao Mario
dopo provo con il PC al lavoro mi ero dimenticato di dire che le prove erano state fatte su Mac.
Ho provato comunque il file che mi hai inviato e va in debug lo stesso.
Ti vi faccio sapere
Grazie
di patel data: 08/06/2016 13:14:11
max, hai allegato il file con la vecchia macro, non con la nuova

di Albatros54 data: 08/06/2016 14:30:17
Propongo la mia soluzione.
Da incollare in VBA nel foglio.
ciao
albatros54

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    Dim wi As Window
    Set wi = ActiveWindow
    Cells.Interior.ColorIndex = xlNone
    Target.Interior.ColorIndex = 8

    For i = wi.VisibleRange.Rows(1).Row To Target.Row - 1
        Cells(i, Target.Column).Interior.ColorIndex = 36
    Next i
    For i = wi.VisibleRange.Columns(1).Column To Target.Column - 1
        Cells(Target.Row, i).Interior.ColorIndex = 36
    Next i
End Sub

evidenziare riga e colonna
di max (utente non iscritto) data: 14/06/2016 09:30:16
Grazie per l'aiuto a tutti

al momento ho usato la macro di Marius che funziona benissimo, posso chiedervi però perchè la mia originale non funzionava ?
Grazie
di Marius44 data: 14/06/2016 09:41:21
Ciao Max
innanzi tutto grazie per la preferenza accordatami.
In merito alla tua macro, come ti ho detto, il problema è che "non riesce a riconoscere" la colonna formata da doppia lettera (AA, AB, BM, ecc.). Infatti, funziona benissimo fino alla colonna Z.

Ciao, Mario

Vuoi Approfondire?