Hakutoiminto VBA / Excelissä

Yritän tehdä makron, joka etsii arvoa tietokannasta ja kopioi tiedot kahteen sarakkeeseen viitteen jälkeen.

esimerkiksi:

tietokanta:

PS85

ps86

ps77

ps52

...

• Käyttäjämuodossa pudotusvalikko, jonka arvo on "ps86", toinen numerolla "5"
• Lähetä-painike
• kun napsautan painiketta, jonka saan tietokantaan:

PS85

ps86 5

ps77

ps52

...

Ratkaisu

Kokeile tätä koodia:

ComboBox1 = pudotuslista arvolla (ps85, ps86 ...)

ComboBox2 = Määräluettelo

CommandButton1 = Lähetä-painike

Mukauta seuraava koodi:

 Yksityinen Sub CommandButton1_Click () Dim RngTrouve As Range Jos ComboBox1 "" ja ComboBox2 "" Sitten arkkeilla (NomDeTaFeuil). Sarakkeet (1) Aseta RngTrouve = .Cells.Find (ComboBox1.Value, lookat: = xlWhole) Jos RngTrouve ei ole mitään sitten MsgBox "valeur inexistante" Else RngTrouve.Offset (0, 2) .Value = ComboBox2.Value Loppu Jos loppu päättyessä Jos asetus RngTrouve = Mikään loppu 

Kiitos pijakusta tästä vinkistä.