Tässä artikkelissa käytämme laskentataulukon muutostapahtumaa tietojen siirtämiseen yhdestä taulukosta toiseen tietyn ehdon mukaan.
Raakatiedot koostuvat asiakkaan tiedoista, mukaan lukien nimi, katuosoite, kaupunki, alue, maa ja puhelinnumero.
Tässä artikkelissa haluamme siirtää niiden asiakkaiden tietoja, jotka eivät ole oikeutettuja tiettyyn tarjoukseen. Viimeinen sarake sisältää arvon "Ei", jos asiakas ei ole oikeutettu tiettyyn tarjoukseen. Haluamme kopioida nämä "ei -oikeutetut" asiakkaat "NotEligibleData" -arkille.
Koodin selitys
Jos Target.Column = 7 Sitten
Yllä olevaa koodia käytetään rajoittamaan laskentataulukon muutostapahtuman suorittamista vain, kun arvo on 7th sarake muuttuu.
Sheets ("NotEligibleData"). Alue ("A2: I600"). ClearContents
Yllä olevaa koodia käytetään arvon poistamiseen alueelta A2: I600
Sheets ("Main"). Solut (i, "G"). EntireRow.Copy Destination: = Sheets ("NotEligibleData"). Range ("A" & Rows.Count). End (xlUp). Offset (1)
Yllä olevaa koodia käytetään ei-kelpoisten asiakkaiden kopioimiseen "NotEligibleData" -arkille.
Seuraa koodia alla
Private Sub Worksheet_Change (ByVal Target As Range) 'Ilmoittavat muuttujat Dim i, Lastrow as Long' Suorita koodi, jos seitsemännen sarakkeen arvo muuttuu If Target.Column = 7 Sitten 'Viimeisen solun rivinumeron saaminen Lastrow = Sheets ("Main") ) .Range ("A" & Rows.Count) .End (xlUp) .Row 'Aiempien tietojen poistaminen "NotEligibleData" -arkilla ("NotEligibleData"). Alue ("A2: I600"). ClearContents' Looping from kymmenes rivi viimeiselle riville i = 10 To Lastrow 'Jos rivin G -sarakkeen arvo on "Ei", kopioi rivi kohdearkille If Sheets ("Main"). Solut (i, "G"). Value = " Ei "Sitten Sheets (" Main "). Solut (i," G "). EntireRow.Copy Destination: = Sheets (" NotEligibleData "). Range (" A "& Rows.Count) .End (xlUp) .Offset ( 1) Lopeta, jos seuraava i Lopeta, jos alue ("A1"). Valitse Lopeta ala
Jos pidit tästä blogista, jaa se ystävillesi Facebookissa. Voit myös seurata meitä Twitterissä ja Facebookissa.
Haluaisimme kuulla sinusta, kerro meille, kuinka voimme parantaa työtämme ja parantaa sitä sinulle. Kirjoita meille sähköpostitse