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

• #27361 Delila_1 veterán sedyke #27360

  Új Válasz 2015-06-15 18:20:42 #27361

  Ú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 sedyke #27360 üzenetére

  Azt hiszem, ne pontosan írtad le a feladatot. Megírtam a makrót a következő felállásra:

  A füzet első lapja az összesítés, ahol a termékek az A oszlopban vannak. Azt az esetet vettem, hogy nincsenek üres sorok, és az első a címsor.
  Az összes többi lapon keresünk.

  A makró megjegyzi az összesítő lap A2-es cellájának az értékét, majd sorban ellenőrzi a többi lapon, hogy van-e ilyen nevű termék. Ha valamelyiken talál, akkor az összesítő lap W2 cellájába beírja a kért szöveget.
  Következik az A3-as cella vizsgálata, majd így tovább az utolsó sorig.

  Sub Van_e()
  Dim talal, sor As Long, usor As Long, nev, lap As Integer
  Dim WS As Worksheet
  
  Set WS = Sheets(1)
  
  usor = WS.Range("A" & Rows.Count).End(xlUp).Row
  
  For sor = 2 To usor
  nev = WS.Cells(sor, "A")
  
  For lap = 2 To Sheets.Count
  Sheets(lap).Select
  Set talal = Cells.Find(nev, LookIn:=xlValues, lookat:=xlWhole)
  If talal Is Nothing Then
  GoTo Tovabb
  Else
  WS.Cells(sor, "W") = "in user"
  Exit For
  End If
  Tovabb:
  Next
  Next
  End Sub

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