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

• #3894 Delila_1 veterán attiati #3893

  Új Válasz 2008-09-15 20:01:32 #3894

  Ú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 attiati #3893 üzenetére

  A lapot, amit másolsz valahonnan, "Másolt_lap"-nak neveztem el (két helyen szerepel a makróban, írd át a saját lapod nevére). Ezen az A oszlopba írtam a dátumot, B-be a termék nevét, C-be az árat. Mindezt a második sortól, mert feltételezem, hogy az első sorban oszlopcímek vannak. A gyümölcsök lapjára már nem kell minden sorba az azonosítót beírni, azért nem tettem be az adatok közé.
  Az gyümölcs lapokra csak két oszlopot vettem fel, a dátumot és a hozzá tartozó árat.

  Sub Másol()
  Sheets("Másolt_lap").select
  sor = 2
  Do While Cells(sor, 1) <> ""
  kelt = Cells(sor, 1)
  lapnév = Cells(sor, 2)
  ár = Cells(sor, 3)
  Sheets(lapnév).Select
  usor = Range("A65536").End(xlUp).Row + 1
  Cells(usor, 1) = kelt
  Cells(usor, 2) = ár
  Sheets("Másolt_lap").Select
  sor = sor + 1
  Loop
  End Sub

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