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

• #14995 Delila_1 veterán zz76zz #14942

  Új Válasz 2012-09-19 18:50:01 #14995

  Ú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 zz76zz #14942 üzenetére

  Eléggé dodonai módon fogalmaztál. Van egy oszlop cikkszámokkal... Hol van az az oszlop?

  Írtam egy makrót, ahol a Munka1 lap A oszlopában van a cikkszám, az első sorban a dátumok. A cikkszámok sorában, a fenti dátumok oszlopában az aznap rendelt mennyiségek.
  Ezekből az adatokból készít a makró egy új táblázatot a Munka2 lapon, ahol az A oszlop a cikkszámot tartalmazza, a B a dátumot, a C pedig a rendelt mennyiséget. Azokat a napokat, mikor nem volt a cikkszámhoz tartozó rendelés, kihagyja.
  Ha nem ilyent szerettél volna, magadra vess a homályos fogalmazás miatt.

  Sub valami()
  Dim sor%, usor%, oszlop%, uoszlop%, WS As Worksheet
  Dim sorW%, cikksz, f As Boolean
  usor% = ActiveSheet.UsedRange.Rows.Count
  uoszlop% = ActiveSheet.UsedRange.Columns.Count
  Set WS = Sheets("Munka2")
  sorW% = 2
  Sheets("Munka1").Select
  
  Application.ScreenUpdating = False
  For sor% = 2 To usor%
  cikksz = Cells(sor%, 1)
  For oszlop% = 2 To uoszlop%
  If Application.WorksheetFunction.CountA(Rows(sor%)) > 1 Then
  f = False
  If Cells(sor%, oszlop%) > 0 Then
  WS.Cells(sorW%, 1) = cikksz
  WS.Cells(sorW%, 2) = Cells(1, oszlop%)
  WS.Cells(sorW%, 3) = Cells(sor%, oszlop%)
  f = True
  End If
  End If
  If f Then sorW% = sorW% + 1
  Next
  Next
  
  Sheets("Munka2").Select
  Application.ScreenUpdating = False
  End Sub

  Szerk.: a sorok és oszlopok számától függően elmókuskálhat a makró egy darabig.

• #14994 zz76zz csendes tag zz76zz #14942

  Új Válasz 2012-09-19 17:14:43 #14994

  Ú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

  

  zz76zz

  csendes tag

  válasz zz76zz #14942 üzenetére

  Már annak is örülnék, ah minden cellát beillesztgetne, így lenne kb 10000 sorm, amit le tudnék rövidíteni, de ezt makróban 40000 sor gépelés lenne, amit nem szeretnék

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