Trova celle vuote

Question

Ciao

 chiedo il vostro aiuto per sapere se sia possibile partendo dal basso trovare tutte le celle vuote in un range che può variare

 e scrivere "PIPPO".

 Grazie per il vostro aiuto

 in Onedrive il file

https://1drv.ms/x/s!AgD0m6NxuM\_BgQOCvUdXOQTXRS8L?e=a54YIb

Answer 1

Ciao citri,

Il mio nome è Raffaele e sono un esperto Microsoft a disposizione per aiutarti.

Prova selezionando (evidenziando) le celle desiderate, poi usa cerca e sostituisci, lasciando vuota il box di ricerca e scrivendo nel box di sostituzione (importante cliccare la casella relativa alla voce intero contenuto della cella) https://support.office.com/it-it/article/trovar...

Spero che l'informazione fornita sia completa ed utile alla risoluzione del problema. Se il problema persiste o hai ulteriori domande non esitare a contattarci.

Grazie per aver postato su Microsoft Community.

Distinti saluti,

Raffaele

Answer 2

Grazie Norman

 ottima soluzione, ma essendo alle prime armi dove posso trovare il significato di ogni riga che hai scritto ?

 Ti ringrazio molto. Se c'è una risposta alla mia domanda fammi sapere.

 Ciao Max

Answer 3

Ciao citri,

cercavo una macro che facesse questa ricerca.

Prova qualcosa del genere:

'=========>>

Option Explicit

'--------->>

Public Sub Tester()

    Dim WB As Workbook

    Dim SH As Worksheet

    Dim Rng As Range, Rng2 As Range, rCell As Range

    Dim LRow As Long

    Const sFoglio As String = "Foglio1"        '<<=== Modifica

    Const sColonna As String = "C"               '<<=== Modifica

    Const iPrimaRiga As Long = 4                 '<<=== Modifica

    Set WB = ThisWorkbook

    Set SH = WB.Sheets(sFoglio)

    With SH

        LRow = LastRow(SH, .Columns(sColonna))

        Set Rng = .Range(sColonna & iPrimaRiga).Resize(LRow - iPrimaRiga + 1)

    End With

    On Error Resume Next

    Set Rng2 = Rng.SpecialCells(xlCellTypeBlanks)

    On Error GoTo 0

    If Not Rng2 Is Nothing Then

        Rng2.Value = "PIPPO"

    End If

End Sub

'--------->>

Public Function LastRow(SH As Worksheet, _

                        Optional Rng As Range, _

                        Optional minRow As Long = 1)

    If Rng Is Nothing Then

        Set Rng = SH.Cells

    End If

    On Error Resume Next

    LastRow = Rng.Find(What:="*", _

                       after:=Rng.Cells(1), _

                       Lookat:=xlPart, _

                       LookIn:=xlFormulas, _

                       SearchOrder:=xlByRows, _

                       SearchDirection:=xlPrevious, _

                       MatchCase:=False).Row

    On Error GoTo 0

    If LastRow < minRow Then

        LastRow = minRow

    End If

End Function

'<<=========

===

Regards,

Norman

Answer 4

Ciao Raffaele

cercavo una macro che facesse questa ricerca. Ciao