Macro per inserire delle parole

Hai un problema con Excel?

Nuova discussione

Macro per inserire delle parole
di Aradia (utente non iscritto) data: 19/03/2013 21:40:27
Salve a tutti
nel mio viaggio VBA (che inizio ad adorare perche' continua a darmi problemi esistenziali) mi domandavo una cosa
Posso fare una macro che copi una determinata parola in un gruppo di celle?

Esempio
Io voglio che dalla a1 alla a3 sia scritta la parola Aradia

Posso farlo?
di totygno71 data: 19/03/2013 21:48:22
Ciao Aradia....
vba e problemi esistenziali addirittura...

il valore di una cella puo essere definito con vba individuando la cella o il Range ed assegnado il valore desiderato!

es. Range("A1:A3").value = "ARADIA"

Ciao
di Aradia (utente non iscritto) data: 19/03/2013 22:15:19
Ehm era cosi' semplice?

Posso apprifittare?XD

Se io volessi dirgli di copiare una colonna da un file esterno?

di Aradia (utente non iscritto) data: 21/03/2013 13:05:24
Ho provato a vedere come copiare da un file e incollare su un altro una colonna di excel

ma ovviamente c'e' qualcosa che non va XD

Workbooks.Open Filename:="C:UsersAdministratorDownloadslista.xls"
Sheets("Foglio1").Select
Set Rng = ActiveSheet.Range("C3:C50")
For riga = 1 To riga = 1

      Rows(cell.Row).Select
      Selection.Copy
      Sheets("Foglio1").Select
      Set Rng = ActiveSheet.Range("B3:B50")
      Rows(riga).Select
      ActiveSheet.Paste
      Sheets("Foglio1").Select
      riga = riga + 1

Next

di Vecchio Frac data: 21/03/2013 15:56:04
Può essere ancora più semplice:
[A1:A3] = "ARADIA"

Nel codice che hai scritto:
For riga = 1 To riga = 1
è sbagliato.
Cosa vuoi copiare e da dove a dove?

Quando copi da un foglio a un altro devi stare attento coi riferimenti e qualificare pienamente i fogli.
Ti do un suggerimento per riferirti a due cartelle in memoria, vedi se ti si illumina una lampadina o se hai bisogno di altre idee :)
set wbk1 = thisworkbook set wbk2 = Workbooks.Open (Filename:="C:UsersAdministratorDownloadslista.xls")

di Aradia (utente non iscritto) data: 21/03/2013 19:54:01
Lampadina!!!!!!
grazie XD

Dim wk1 As Workbook
    Dim wk2 As Workbook
    Dim sh1 As Worksheet
    Dim sh2 As Worksheet
    

    

    Set wk1 = ThisWorkbook
    Set wk2 = Workbooks("Ricerca.xls")
    'metto i riferimenti ai fogli
    Set sh1 = wk1.Worksheets("Foglio1")
    Set sh2 = wk2.Worksheets("Foglio1")

    With sh2
        'copio i dati da un file all'altro
        .Range("E3:E53").Copy
        sh1.Range("B2:B52").PasteSpecial xlPasteValues
    End With
    Application.CutCopyMode = False

di Vecchio Frac data: 21/03/2013 20:02:11
Ottimo

Vuoi Approfondire?