formato tabella

Hai un problema con Excel?

Nuova discussione

formato tabella
di stefanmi data: 11/04/2014 09:24:20
salve, ho una tabella con 3 formule mi servirebbe una macro che se dalle colonne A a F i dati diminuiscono la tabella diminuisca anche lei però con le stesse formule belle colonne gialle, grazie

di stefanmi data: 11/04/2014 09:36:23
dovrebbe fare una cosa del genere

ub Macro4()
'
' Macro4 Macro
'

'
    Selection.End(xlDown).Select
    Range("A24").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents
    Range("A25").Select
    ActiveSheet.ListObjects("Tabella1").Resize Range("$A$1:$I$23")
    Range("A25").Select
End Sub

di Vecchio Frac data: 11/04/2014 13:49:54
Come (cioè "In che modo") diminuiscono i dati della Tabella1?
Elimini una o più righe a mano oppure importi dati mediante un'altra procedura?
In ogni caso puoi provare questa soluzione: dopo aver eliminato una o più righe della tabella1, l'istruzione
ActiveSheet.ListObjects("Tabella1").resize Range("A2").CurrentRegion
la ridimensionerà alla regione attuale.

di stefanmi data: 11/04/2014 14:36:03
grazie Vecchio Frac, così funziona
avrei bisogno una macro che comprenda queste 2 se i dati sono uguali o maggiori a quelli precedenti va bene la macro 2 altrimenti deve fare quello della macro 12

Sub Macro2()
  Dim wbFrom As Workbook, wbTo As Workbook
  Dim wsF As Worksheet, wsT As Worksheet
  Dim x As Long
  Dim strFile As String
     
  With Application.FileDialog(msoFileDialogOpen)
    .InitialFileName = "C:UsersstefanoDocumentsMy Dropboxdativendita*.xls*"
    .Title = "Seleziona il File"
    .AllowMultiSelect = False
    .Show
    If .SelectedItems.Count = 0 Then Exit Sub
    strFile = .SelectedItems(1)
  End With
  
  If strFile = "" Then GoTo Uscita
  Set wbTo = ThisWorkbook
  Set wsT = wbTo.Worksheets("articoli")
  Set wbFrom = Application.Workbooks.Open(strFile)
  Set wsF = wbFrom.Worksheets(1)
  
  With wsT
    x = .Range("A" & .Rows.Count).End(xlUp).Row
    .Range("A2:F" & x).ClearContents
  End With
  
  With wsF
    x = .Range("A" & .Rows.Count).End(xlUp).Row
    .Range("A2:F" & x).Copy wsT.Range("A2")
    wsT.Range("A2:F" & x) = wsT.Range("A2:F" & x).Value
    .Parent.Close vbNo
  End With
  
  Set wbTo = Nothing
  Set wsT = Nothing
  Set wbFrom = Nothing
  Set wsF = Nothing
Uscita:
  
 ActiveSheet.PivotTables("Tabella_pivot1").PivotCache.Refresh
End Sub


Sub Macro12()
'
' Macro12 Macro
'

'
    Range("Tabella1[[#Headers],[codice]]").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("Tabella1[[#Headers],[codice]]").Select
    Selection.End(xlToRight).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents
    ActiveSheet.ListObjects("Tabella1").Resize Range("A2").CurrentRegion
End Sub

di stefanmi data: 14/04/2014 09:24:12
nessun aiuto?
di stefanmi data: 17/04/2014 14:24:52

Vuoi Approfondire?