Ciao,
come posso risolvere questo problema:
se il mio intervallo di selezione è compreso nell'intervallo A1:Z100 allora posso eliminare queste righe.
if ...
Selection.EntireRow.Delete
end if
Grazie.
Moderatori: Anthony47, Flash30005
If Application.Intersect(Range("A1:Z1000"), Selection).Count = Selection.Count Then
Selection.EntireRow.Select
End If
If Application.Intersect(Range("A14:V1000"), Selection).Count = Selection.Count Then
Response = MsgBox("Sei sicuro di voler eliminare queste righe?", vbYesNo)
If Response = vbYes Then
Selection.EntireRow.Delete
ActiveCell.Select
End If
End If
Set iset = Application.Intersect(Range("A1:Z1000"), Selection)
If Not iset Is Nothing Then
'
'Il codice precedente
'
End If
Public Sub prova()
Dim rngInt As Range
Set rngInt = Application.Intersect(Range("A14:V1000"), Selection)
If Not rngInt Is Nothing Then
If rngInt.Address = Selection.Address Then
With Selection
If MsgBox("Sei sicuro di voler eliminare le righe " & .EntireRow.Address(0, 0) & "?", vbYesNo) = vbYes Then
'Application.EnableEvents = False 'attivare se necessario
.EntireRow.Delete
ActiveCell.Select
'Application.EnableEvents = True 'attivare se necessario
End If
End With
End If
End If
Set rngInt = Nothing
Torna a Applicazioni Office Windows
Togliere numeri da un intervallo con criterio Autore: ikwae |
Forum: Applicazioni Office Windows Risposte: 7 |
Excel . riferimenti variabili in formula con intervallo Autore: fardi |
Forum: Applicazioni Office Windows Risposte: 4 |
sommare numeri di un intervallo impostando criteri Autore: LUCIANNA |
Forum: Applicazioni Office Windows Risposte: 3 |
MACRO ATTRIBUZIONE NOME INTERVALLO Autore: ANTONIO1105 |
Forum: Applicazioni Office Windows Risposte: 5 |
MAcro Denomina intervallo col nome variabile di una cella Autore: ANTONIO1105 |
Forum: Applicazioni Office Windows Risposte: 2 |
Visitano il forum: Nessuno e 16 ospiti