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

• #41079 ny.janos tag BalanceR #41078

  Új Válasz 2019-05-15 16:58:32 #41079

  Ú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

  

  ny.janos

  tag

  válasz BalanceR #41078 üzenetére

  A HIPERHIVATKOZÁS függvénnyel meg tudod oldani a feladatot, de (makró nélkül ismereteim szerint) csak egy új oszlopban.

  

• #40347 Delila_1 veterán BalanceR #40346

  Új Válasz 2019-03-02 06:54:43 #40347

  Ú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 BalanceR #40346 üzenetére

  Egy oszlopba folyamatosan beírod a sorszámot, egy másikban jelölöd *-gal a leértékelést.
  Utóbbi szerint rendezve felülre kerülnek a jelzett tételek, majd a sorszám szerinti rendezés visszaállítja az eredeti felállást.

  

• #40314 Fferi50 Topikgazda BalanceR #40312

  Új Válasz 2019-02-26 10:47:07 #40314

  Ú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

  

  Fferi50

  Topikgazda

  válasz BalanceR #40312 üzenetére

  Szia!

  Adatok - Speciális (korábban Advanced szűrő). Próbáld meg.

  Üdv.

• #38737 Delila_1 veterán BalanceR #38735

  Új Válasz 2018-08-02 07:27:40 #38737

  Ú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 BalanceR #38735 üzenetére

  Legyen mindkét füzet megnyitva. Nálam a Füzet1.xlsm-ben van a makró, modulban, a másik neve Füzet2.xlsx.
  Mindkét füzetben Munka1 a lap neve, és címsort feltételezek.

  Sub Egyeztet()
Dim sor As Long, usor As Long
Dim WS1 As Worksheet, WS2 As Worksheet, talal

Set WS1 = Workbooks("Füzet1.xlsm").Sheets("Munka1")
Set WS2 = Workbooks("Füzet2.xlsx").Sheets("Munka1")

WS1.Activate
usor = Range("A" & Rows.Count).End(xlUp).Row

For sor = usor To 2 Step -1
On Error Resume Next
talal = Application.Match(Cells(sor, 1), WS2.Columns(1), 0)
If IsError(talal) Then
Rows(sor).Delete Shift:=xlUp
On Error GoTo 0
Else
Cells(sor, 9) = WS2.Cells(talal, 9)
End If
Next
End Sub

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