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

• #3896 Delila_1 Topikgazda attiati #3895

  Új Válasz 2008-09-16 08:38:30 #3896

  Ú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

  Topikgazda

  válasz attiati #3895 üzenetére

  Angol nyelvűnél is működik, de csak akkor, ha a gyümölcsök és a lapok neve megegyezik.
  Másképp honnan tudná a program, hogy melyik lap adataihoz írja a következőt?

  Vegyél fel egy új lapot, ahol az A oszlopban a hosszú név, B-ben a hozzárendelt rövid lapnév szerepeljen. Kibővítettem a makrót. A Masolt_lap E oszlopába beírja az
  =fkeres(a2;Uj_Sheet!a:b;2;hamis) függvényt, és ezután a lapnevet nem a B, hanem az E oszlopból olvassa ki.

  Sub Masol()
  Sheets("Masolt_lap").Select
  usorm = Range("A65536").End(xlUp).Row
  Range("E2").Select
  ActiveCell.Formula = "=VLOOKUP(B2,Uj_Sheet!A:B,2,FALSE)"
  Selection.AutoFill Destination:=Range("E2:E" & usorm)
  
  sor = 2
  Do While Cells(sor, 1) <> ""
  kelt = Cells(sor, 1)
  lapnev = Cells(sor, 5)
  ar = Cells(sor, 3)
  Sheets(lapnev).Select
  usor = Range("A65536").End(xlUp).Row + 1
  Cells(usor, 1) = kelt
  Cells(usor, 2) = ar
  Sheets("Masolt_lap").Select
  sor = sor + 1
  Loop
  End Sub

  Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

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