Uppdatera blad via VBA

I den här artikeln kommer vi att lära oss hur man uppdaterar data från ett ark till ett annat blad via VBA i Microsoft Excel.

Låt oss ta ett exempel för att förstå hur och var vi kan använda detta makro i våra data för att minska vårt dagliga arbete.

Vi vill skriva den här koden för de anställda som arbetar i ett callcenter. När klienter ringer dem ber de om grundläggande detaljer som User_Name, User_ID, Phone_Number och Problem_ID, de behöver en sådan kod för att fungera systematiskt.

Nu vill vi tillämpa makrot för ett sådant sammanhang när ett samtal kommer och de noterar alla ovan nämnda detaljer i ett excelark, och när de klickar på uppdatering bör den informationen uppdateras i ett annat blad.

För att uppdatera data från ett ark till ett annat blad, följ nedanstående steg:-

Först sätter vi in kommandoknappen i kalkylbladet.
Gå till fliken Utvecklare och sätt sedan in kommandoknappen från Activexcontrol.
Tilldela nedan nämnda makro:-

Privat underkommandoButton1_Click ()

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

Arbetsblad ("Ark1"). Välj

Användarnamn = Område ("B2")

User_ID = Område ("B3")

Phone_Number = Område ("B4")

Problem_ID = Område ("B5")

Arbetsblad ("Sheet2"). Välj

Arbetsblad ("Ark2"). Område ("A1"). Välj

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

Arbetsblad ("Ark2"). Område ("A1"). Slut (xlDown) .Välj

Avsluta om

ActiveCell.Offset (1, 0) .Välj

ActiveCell.Value = Användarnamn

ActiveCell.Offset (0, 1) .Välj

ActiveCell.Value = User_ID

ActiveCell.Offset (0, 1) .Välj

ActiveCell.Value = Phone_Number

ActiveCell.Offset (0, 1) .Välj

ActiveCell.Value = Problem_ID

Arbetsblad ("Ark1"). Välj

Arbetsblad ("Ark1"). Område ("B2"). Välj

Avsluta Sub

Kodförklaring: -Först hade vi definierat alla variabler. Sedan hade vi definierat intervallet för varje variabel och sedan beskrivit intervallet för alla variabler. Och vi hade också definierat att var och i vilket intervall data kommer att uppdateras efter att ha klickat på knappen Uppdatera.

För att köra koden, tryck på tangenten F5 på tangentbordet.
När du anger uppgifterna och klickar på uppdateringsknappen uppdateras data i ett annat blad och vi kan skriva in nya data i arket.