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

• #44300 Fferi50 Topikgazda Telda #44294

  Új Válasz 2020-06-18 14:36:14 #44300

  Ú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 Telda #44294 üzenetére

  Szia!
  Ha még nincs megoldásod, ezt a makrót másold be egy modul lapra.
  Sub keresi()
Dim kodok As Range, adatok As Range, adat As Range, kod As Range, adatcim As String
Sheets("Munka1").Range("B:B").Clear
Set kodok = Sheets("Munka2").Range("A1").CurrentRegion
Set adatok = Sheets("Munka1").Range("A1").CurrentRegion
Set adat = adatok.Cells(1)
For Each kod In kodok.Cells
       Set adat = adatok.Find(what:=kod, after:=adat, LookIn:=xlValues, lookat:=xlPart)
       If Not adat Is Nothing Then
            adatcim = adat.Address
            Do
                adat.Offset(0, 1).Value = 1
                Set adat = adatok.Find(what:=kod, after:=adat, LookIn:=xlValues, lookat:=xlPart)
            Loop While adat.Address <> adatcim
       Else
          Set adat = adatok.Cells(1)
       End If
    DoEvents
Next
Application.ScreenUpdating = True
MsgBox "Készen vagyunk!"
End Sub

  A munkalapok neveit igazítsd a sajátodéhoz. A makró minden olyan érték mellé beír egy db 1-est, amelyik a kódok listájában előforduló értékkel kezdődik. Ne lepődj meg, ha kicsit sokáig fut.
  Üdv.

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