Ciao a tutti,
vorrei creare una macro per cui, alla pressione di un pulsante, il valore della cella A1 del Foglio1 venga copiato nella prima cella libera della colonna la cui intestazione corrisponde al valore in A2.
Grazie per l'aiuto
Moderatori: Anthony47, Flash30005
Sub incolonna()
Dim ur As Long
Dim rng As Range
Dim col As Long
Set rng = Range("E1:H1")
col = Application.WorksheetFunction.Match(Range("B1").Value, rng)
ur = Cells(Rows.Count, col).End(xlUp).Row
Range("a1").Copy Destination:=Cells(ur + 1, col + 4)
End Sub
Sub incolonna()
Dim ur As Long
Dim rng As Range
Dim col As Long
Set rng = Range("B1:AA1")
col = Application.WorksheetFunction.Match(Range("A2").Value, rng) + 1
ur = Cells(Rows.Count, col).End(xlUp).Row + 1
Cells(ur, col) = Range("A1")
End Sub
col = Application.WorksheetFunction.Match(Range("A2").Value, rng) + 1
col = Application.WorksheetFunction.Match(Range("A2").Value, rng, 0) + 1
[Se il parametro e' omesso o e' pari a 1 allora] CONFRONTA troverà il valore più grande che è minore o uguale a valore. È necessario che i valori nell'argomento matrice siano disposti in ordine crescente, ad esempio ...-2; -1; 0; 1; 2;...A-Z; FALSO; VERO.
Anthony47 ha scritto:Perdona...
Torna a Applicazioni Office Windows
Inserire 2 valori nella stessa cella Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 2 |
Problema con macro copia e rinomina file Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 2 |
gestire e togliere oggetti in colonna con condizione Autore: raimea |
Forum: Applicazioni Office Windows Risposte: 2 |
Incolla prendendo riferimento da cella esterna Autore: scanacc |
Forum: Applicazioni Office Windows Risposte: 4 |
Visitano il forum: Nessuno e 64 ospiti