Oppdater ark via VBA

I denne artikkelen skal vi lære hvordan du oppdaterer dataene fra ett ark til et annet ark gjennom VBA i Microsoft Excel.

La oss ta et eksempel for å forstå hvordan og hvor vi kan bruke denne makroen i dataene våre for å redusere vårt daglige arbeid.

Vi vil skrive denne koden for de ansatte som jobber i et kundesenter. Når klienter ringer dem, ber de om grunnleggende detaljer som User_Name, User_ID, Phone_Number og Problem_ID, de trenger en slik kode for å fungere systematisk.

Nå vil vi bruke makroen for en slik kontekst når et anrop kommer og de noterer alle de ovennevnte detaljene i et Excel -ark, og når de klikker på oppdatering, bør dataene oppdateres i et annet ark.

For å oppdatere dataene fra ett ark til et annet ark, følg trinnene nedenfor:-

Først vil vi sette inn kommandoknappen i regnearket.
Gå til kategorien Utvikler og sett deretter inn kommandoknappen fra Activexcontrol.
Tilordne makroen nedenfor:-

Private Sub CommandButton1_Click ()

Dim User_Name As String, User_ID As Integer, Phone_Number As Double, Problem_ID As Integer

Regneark ("Ark1"). Velg

Brukernavn = Område ("B2")

User_ID = Område ("B3")

Phone_Number = Område ("B4")

Problem_ID = Område ("B5")

Regneark ("Ark2"). Velg

Regneark ("Ark2"). Område ("A1"). Velg

If Worksheets ("Sheet2"). Range ("A1"). Offset (1, 0) "" Then

Regneark ("Ark2"). Område ("A1"). Slutt (xlDown) .Velg

Slutt om

ActiveCell.Offset (1, 0) .Velg

ActiveCell.Value = Brukernavn

ActiveCell.Offset (0, 1) .Velg

ActiveCell.Value = User_ID

ActiveCell.Offset (0, 1) .Velg

ActiveCell.Value = Phone_Number

ActiveCell.Offset (0, 1) .Velg

ActiveCell.Value = Problem_ID

Regneark ("Ark1"). Velg

Regneark ("Ark1"). Område ("B2"). Velg

Slutt Sub

Kode Forklaring: -Først hadde vi definert alle variablene. Deretter hadde vi definert området for hver variabel, og deretter beskrevet området for alle variablene. Og vi hadde også definert at hvor og i hvilket område data vil bli oppdatert etter å ha klikket på Oppdater -knappen.

For å kjøre koden, trykk på tasten F5 på tastaturet.
Når du skriver inn dataene og klikker på oppdateringsknappen, oppdateres dataene i et annet ark, og vi kan legge inn nye data i arket.