Formula relativa

Hai un problema con Excel?

Nuova discussione

Formula "relativa"
di Dani (utente non iscritto) data: 27/02/2016 18:48:59
Ciao a tutti, con VBA vorrei creare una macro che conta il numero di righe tra la cella dove copio il comando macro e una determinata cella, ad esempio non vuota, della stessa colonna.
Per spiegarmi, supponiamo che la colonna A sia vuota tranne la cella A20 dove c'è un valore numerico: vorrei che la formula mi restituisse 6 se la copio in A15, 11 se la sposto in A9.
Per le mie conoscenze di VBA, il problema iniziale è riferirsi alla cella che via via contiene la formula.....
Cerca valore su n fogli excel
di cescof (utente non iscritto) data: 27/02/2016 20:02:11
Ciao a tutti... ho un file composto da 409 fogli di excel ognuno dei quali corrisponde ad un centro di costo identificato da un valore sempre presente in una cella specifica di ogni foglio..es A6
io vorrei una maschera di ricerca che mi restituisca il foglio in cui è presente quel valore.. cioè in pratica una query che fa a scandagliare tutte le celle A6 dei singoli fogli e mi restituisca il nome del foglio i cui in quella cella è presente quel valore...
Spero di essere stato abbastanza chiaro
Grazie

di Raffaele53 data: 27/02/2016 21:35:33
Pro, funziona se tagli un numero e lo incolli in un'altra cella di colonna A
Contro, se scrivi un numero in colonna A appare un Msg da non considerare

@cescof
Ii sei accodato ad un'altro post

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
    Dim cella
    If Target.Cells.Count > 1 Then Exit Sub
    If Cells(Target.Row, 1) = "" Then
        Cells(1, 100) = Target.Row
    End If
    If Cells(Target.Row, 1) <> "" And IsNumeric(Cells(Target.Row, 1)) Then
        If Target.Row > Cells(1, 100) Then
            MsgBox ("+" & Target.Row - Cells(1, 100) & " Righe")
        Else
            MsgBox (Target.Row - Cells(1, 100) & " Righe")
        End If
    End If
End Sub

Vuoi Approfondire?