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

• #45774 Lokids addikt Fferi50 #45773

  Új Válasz 2021-01-14 19:26:25 #45774

  Ú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

  

  Lokids

  addikt

  válasz Fferi50 #45773 üzenetére

  Ide feltettem egy minta fejlécet. Második sorban lévő random számok az azonosítók.
  Képzeld el úgy, hogy a második tábla ugyan ez, csak nincsenek benne a %-ok és mondjuk bekerült egy plusz oszlop a 4-es és 5-s közé az 1-es és a 7-es meg helyet cserélt.

  Így próbáltam megoldani:

  For sor = 4 To s_MainLastRow
  s_MainName = Workbooks(MainWBName).Worksheets(s_wsName).Cells(sor, 2).Value
  For fteSor = 4 To s_PrevLastRow
  s_FteName = Workbooks(FteWBName).Worksheets(1).Cells(fteSor, 2).Value
  If s_MainName = s_FteName Then
  
  For oszlop = 6 To s_PrevLastCol
  s_mainFteNum = Workbooks(MainWBName).Worksheets(s_wsName).Cells(2, oszlop).Value
  For fteOszlop = 6 To s_wsnameLastCol
  s_FteNum = Workbooks(MainWBName).Worksheets(s_wsName).Cells(2, fteOszlop).Value
  If s_mainFteNum = s_FteNum Then
  Workbooks(FteWBName).Worksheets(1).Range(Col_Letter(fteOszlop) & fteSor).Copy _
  Destination:=Workbooks(MainWBName).Worksheets(s_wsName).Range(Col_Letter(oszlop) & sor)
  End If
  
  Next fteOszlop
  Next oszlop

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