[Excel] Aiuto Macro

[Miticoo87]

Ciao a tutti, chiedo aiuto a chi sappia masticare VB , mi serve una macro che controlli un tot range di celle se ne trova vuote elimina la riga intera mi spiego meglio:

Se ho una lista strutturata cosi:

Qt Codice Caramelle

10 1515 Gustose

30 1520 Schifose
15 2025 Strabilianti

36 1220 Ammazza che bone


La macro dovrebbe controllare la colonna Qt in questo caso mettiamo da A3 a A8 e formattare la lista cosi:


Qt Codice Caramelle

10 1515 Gustose
30 1520 Schifose
15 2025 Strabilianti
36 1220 Ammazza che bone

E' una cosa fattibile ??

[MarcoGG]

Da pulsante CommandButton1 :

Private Sub CommandButton1_Click()

    Dim cella As Range
    For Each cella In Range("A3:A8")
        If cella.Text = "" Then cella.EntireRow.Delete (xlShiftUp)
    Next

End Sub

[Miticoo87]

grazie mille

[Miticoo87]

Ciao Marco riusciresti a risolvere questa seconda macro:

la macro dovrebbe funzionare cosi:

1- Seleziona A1:A10 da foglio " Sigarette" e copia
2- Incolla selezione in B10 foglio " Modulo Richiesta" ad una condizione; se la cella è vuota incolla altrimenti vai a cella successiva e via cosi finchè non trova la cella vuota e mi incolla la selezione.

Si può fare ??

Grazie ancora

[MarcoGG]

Originariamente inviato da Miticoo87

Ciao Marco riusciresti a risolvere questa seconda macro:

la macro dovrebbe funzionare cosi:

1- Seleziona A1:A10 da foglio " Sigarette" e copia
2- Incolla selezione in B10 foglio " Modulo Richiesta" ad una condizione; se la cella è vuota incolla altrimenti vai a cella successiva e via cosi finchè non trova la cella vuota e mi incolla la selezione.

Si può fare ??

Grazie ancora

In un modulo :

Public Sub operazione()

    Sheets("Sigarette").Range("A1:A10").Copy
    Sheets("Modulo Richiesta").Select
    Dim cnt As Long
    cnt = 10
    Do
        If Range("B" & cnt).Text = "" Then
            Range("B" & cnt).Select
            ActiveSheet.Paste
            Exit Do
        End If
        cnt = cnt + 1
    Loop
    
End Sub