cambiare riferimento alla colonna

Hai un problema con Excel?

Nuova discussione

cambiare riferimento alla colonna
di mauro53 (utente non iscritto) data: 18/09/2015 11:10:26
buongiorno ho iniziato da poco l'utilizzo di excelVBA e delle Macro in maniera autodidatta
a questo punto chiedo aiuto, spero di farmi capire perchè non sono pratico del linguaggio e tanto meno di inglese
nella macro, che inserisco sotto, copio dei valori da una colonna foglio BANCO A. Car-scar-giac
nella Columns("S:S"). del foglio "REG. CARICO)" il prossimo mese devo inserire i dati nella colonna successiva "T" e cosi via
come posso fare per mettere in Columns(" rifrimento al valore variabile contenuto in una cella, che mi indica la colonna corrispondente al mese)
spero di essermi fatto capire
ringrazio in anticipo e complimenti per gli aiuti che date
saluti Mauro

Sub Macro30_Nuovo_Carico_e_Disponibilità()
'
' Macro30 Macro Nuovo carico
' Macro registrata il 14/09/2015 da mauro
'

'
    Sheets("REG. CARICO)").Select
    Columns("S:X").Select
    Selection.ClearContents
    Sheets("BANCO A. Car-scar-giac  ").Select
    Selection.AutoFilter
    ActiveWindow.SmallScroll Down:=-15
    
    Range("A3:J3").Select
    Selection.AutoFilter
    Columns("U:U").Select
    Selection.Copy
    Sheets("REG. CARICO)").Select
    
    Columns("S:S").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Range("R1").Select
    Selection.AutoFill Destination:=Range("R1:S1"), Type:=xlFillDefault
    Range("R1:S1").Select
    Range("R2").Select
    Selection.AutoFill Destination:=Range("R2:S2"), Type:=xlFillDefault
    Range("R2:S2").Select
    Range("A1").Select
    Sheets("BANCO A. Car-scar-giac  ").Select
    Range("A1").Select
    Selection.AutoFilter Field:=10, Criteria1:=">0", Operator:=xlAnd
    Selection.AutoFilter Field:=2, Criteria1:="Banco"
    ActiveWorkbook.Save
    ActiveSheet.PageSetup.PrintArea = ""
    Range("A2:M608").Select
    ActiveSheet.PageSetup.PrintArea = "$A$2:$M$608"
    Application.ActivePrinter = "PDF Creator su Ne00:"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
        "PDF Creator su Ne00:", Collate:=True
    Range("A1").Select
    Sheets(" AGEA Car-scar-giac ").Select
    Selection.AutoFilter
    Columns("J:J").Select
    Selection.Font.Bold = False
    Selection.Font.Bold = True
    Range("A3:J3").Select
    Selection.AutoFilter
    Selection.AutoFilter Field:=2, Criteria1:="AGEA"
    Selection.AutoFilter Field:=10, Criteria1:=">0", Operator:=xlAnd
    Range("A2:K802").Select
    ActiveSheet.PageSetup.PrintArea = "$A$2:$K$802"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Range("A1").Select
    Selection.AutoFilter Field:=10
    Sheets("Distribuzione").Select
    Range("W1").Select

di Albatros54 data: 18/09/2015 11:51:02
questa semplice macro non fa altro che selezionarti la colonna con il valore numerico memorizzata nella cella 1a.
Provala
Sub m() a = Cells(1, 1) Columns(a).Select End Sub

Vuoi Approfondire?