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

• #45500 Delila_1 veterán Lokids #45498

  Új Válasz 2020-12-04 18:06:18 #45500

  Ú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 Lokids #45498 üzenetére

  Az előbb a képlet helyét rosszul írtam, az 1. ws lap D5 cellájába kell írni.

  Makróval:
  Sub Masolas()
Dim sor As Integer, IttVan As Variant

Sheets("1. ws").Select
For sor = 5 To 1500
On Error Resume Next
IttVan = Application.Match(Cells(sor, 1), Sheets("2. ws").Columns(1), 0)
If VarType(IttVan) = vbError Then
On Error GoTo 0
Else
Sheets("2. ws").Range("B" & IttVan & ":E" & IttVan).Copy Cells(sor, 4)
End If
Next
End Sub

• #45499 Delila_1 veterán Lokids #45498

  Új Válasz 2020-12-04 17:30:03 #45499

  Ú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 Lokids #45498 üzenetére

  Makró nélkül a 2. ws D5 cellájának a képlete
  =INDEX('2. ws'!$A:$E;HOL.VAN($A5;'2. ws'!$A:$A;0);OSZLOP()-2)
  ezt másolhatod jobbra és le.

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