Ú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.

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