Domanda Compilare DB Access da Bottone Excel

daddy16

Nuovo utente
21 Dicembre 2020
8
1
365
0
Ciao a tutti,

Ho scitto questa macro la quale andando a trovare un valore in una determinata colonna scriva nella riga corrispondente un valore:
In particolare prendendo il valore in cella (2, 30) lo cerca nella colonna 19, trovato quel valore nella cella(i, 19) vada a prendersi il valore di cella (i, 13) e lo scriva in cella (i, 15)

Visual Basic:
Sub Concession_button()

Set qh = Worksheets("Shopper")
Set pt = Worksheets("DataITA")


lRow = pt.Cells(Rows.Count, 4).End(xlUp).Row

For i = 2 To lRow
If pt.Cells(i, 19) = qh.Cells(2, 30) Then

pt.Cells(i, 15) = pt.Cells(i, 13).Text


Exit For
End If
Next i


End Sub
vorrei che come destinazione finale non ci sia Worksheets("DataITA") ma un database Access presente in locale e con al suo interno una tabella del tutto simile a "DataITA"
 
Ultima modifica di un moderatore:

daddy16

Nuovo utente
21 Dicembre 2020
8
1
365
0
Ciao Ges,

Grazie mille, per prima cosa!!!!!!!


Essendo assolutamente nuovo del mondo VBA, e ancora più nuovo del mondo Access non mi è chiarisimmo questo passaggio:


Visual Basic:
Do While Len(Range("A" & r).Formula) > 0
        With rs
            .AddNew
            .Fields("Nome1") = Range("A" & r).Value '<--- Nome campi
            .Fields("Nome2") = Range("B" & r).Value
            .Fields("Nome3") = Range("C" & r).Value


inoltre mi pare di capire che apre e chiude il file (è possibile fare questa operazione senza aprire e chiudere il file?)
 
Ultima modifica di un moderatore:

ges

Excel/VBA Expert
Amministratore
21 Giugno 2015
28.673
1.865
Como
2011MAC 365WIN
890
Copia i campi della colonna A di Excel che sono valorizzati nei campi della Tabella Access

mi pare di capire che apre e chiude il file (è possibile fare questa operazione senza aprire e chiudere il file?)
No, in informatica non è possibile agire su un file senza che venga aperto!
 

Sostieni ForumExcel

Aiutaci a sostenere le spese e a mantenere online la community attraverso una libera donazione!