[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 ?? :rolleyes:

[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 :D

[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 ??:rolleyes:

Grazie ancora

[MarcoGG]

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 ??:rolleyes:

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
;)