Új hozzászólás Aktív témák

• #44580 Delila_1 veterán zsolti_20 #44578

  Új Válasz 2020-08-02 14:48:11 #44580

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz zsolti_20 #44578 üzenetére

  Nem volt pontos a leírás a 2. feladatnál. Ha az első lapról azokat a sorokat kell törölnöd, ahol az A oszlop értéke megtalálható a második lap A oszlopában, akkor a lenti makró megoldja.

  Sub KettesFeladat()
Dim sor As Long, usor As Long

usor = Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row
For sor = usor To 1 Step -1
If Application.WorksheetFunction.CountIf(Sheets("Sheet2").Columns(1), Sheets("Sheet1").Cells(sor, 1)) > 0 Then
Sheets("Sheet1").Rows(sor).Delete
End If
Next
End Sub

• #44579 eszgé100 őstag zsolti_20 #44578

  Új Válasz 2020-08-02 12:40:37 #44579

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  eszgé100

  őstag

  válasz zsolti_20 #44578 üzenetére

  Szia, csak az elsőre van ötletem, mert épp most csinálok hasonlót

  Public Sub CopyThenDelete()
Workbooks.Open "Z:\Excel\egyik.xlsm"
Workbooks("egyik.xlsm").Worksheets("Sheet2").Range("A1:A10").copy Workbooks("másik.xlsm").Worksheets("Sheet4").Range("B2")
Workbooks("egyik.xlsm").Close SaveChanges:=False
Kill "Z:\Excel\egyik.xlsm"
End Sub

  a makrót a másik.xlsm-ből kell indítani. Workbooks.open... sor nem kell, ha már alapból is nyitva van az egyik.xlsm munkafüzet.
  Kill-el vigyázz, mert véglegesen töröl, nem a lomtárba. Biztonság kedvéért csinálj biztonsági mentéseket az érintett fájlokról

Új hozzászólás Aktív témák