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

• #30012 Delila_1 veterán stivi1g #30011

  Új Válasz 2015-12-31 18:25:02 #30012

  Ú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 stivi1g #30011 üzenetére

  Szívesen.
  Igen, arra a sorra gondolok, és oda másold a felső sorba, ahol a makróid vannak.

• #30010 Delila_1 veterán stivi1g #30009

  Új Válasz 2015-12-30 15:04:37 #30010

  Ú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 stivi1g #30009 üzenetére

  Itt a bővített kiadás.

  Csak a dolgozik makróba írtam be a bővítést. Megjelöltem, melyik sorokat kell a többibe átmásolnod.
  A Module1 tetején lévő sort is írd be a lap tetejére.

• #30008 Delila_1 veterán stivi1g #30006

  Új Válasz 2015-12-30 13:29:07 #30008

  Ú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 stivi1g #30006 üzenetére

  Még annyit, hogy az Összesítő lap C2 képlete legyen inkább =DARABTELI('Állomány lista'!B$9:B$90;$B2), akkor simán át tudod másolni a C2:NN6 tartományra.

• #30007 Delila_1 veterán stivi1g #30006

  Új Válasz 2015-12-30 13:13:23 #30007

  Ú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 stivi1g #30006 üzenetére

  Feltettem a módosított fájlt.

  A tartalék makróhoz írtam egy kevés kiegészítést.

• #29984 bsh addikt stivi1g #29983

  Új Válasz 2015-12-28 07:04:14 #29984

  Ú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

  

  bsh

  addikt

  válasz stivi1g #29983 üzenetére

  ez a táblázat totál nem úgy néz ki, mint amit elsőnek képen linkeltél.

• #29980 bsh addikt stivi1g #29979

  Új Válasz 2015-12-27 11:53:32 #29980

  Ú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

  

  bsh

  addikt

  válasz stivi1g #29979 üzenetére

  és biker:
  mindkettőtöknél "rossz helyen" van a kód (vagyis én nem úgy írtam, hogy onnan fusson, mert nem sok értelme lenne ezekben az esetekben). én úgy írtam, hogy az csak az adott munkalapon fusson. a képen bejelöltem, hová kell duplán kattintani (VBA Projekt (fájnév)\Microsoft Excel objects\munkalap_neve) és az úgy megnyíló ablakban legyen a kód. bocs a félreértésért

• #29971 bsh addikt stivi1g #29969

  Új Válasz 2015-12-26 13:40:37 #29971

  Ú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

  

  bsh

  addikt

  válasz stivi1g #29969 üzenetére

  nekem nem teljesen világos: gondolom a B oszloptól az AF oszlopig január 1-től január 31-ig lennének a dátumok (csak nem látszik), de a tartalék mező csak jan.22-től van? akkor most csak jan22-jan31 közti mezőket vegye figyelembe? vagy a tartalék mezők ki lesznek bővítve? vagy nem tudom...
  Private Sub Worksheet_Change(ByVal Target As Range)
  Application.EnableEvents = False
  On Error GoTo xit
  Set Target = Target.Cells.Item(1)
  If Not Intersect(Target, Me.Range("B9:AF500")) Is Nothing Then
  If Target = "tartalék" Then
  x = WorksheetFunction.Match(Me.Cells(8, Target.Column), Me.Range("AI12:AR12"), 0) - 1
  Me.Range("AI12:AI512").Offset(0, x).Find("") = Me.Cells(Target.Row, 1)
  End If
  End If
  xit:
  Application.EnableEvents = True
  End Sub
  ez a teljes(?) dátumtartományban (B-AF oszlopok) "figyel", és az AI12:AR12 cellákban lévő dátumokkal hasonlít össze, ezek persze kiterjeszthetők/lecsökkenthetők.

• #29952 Delila_1 veterán stivi1g #29951

  Új Válasz 2015-12-21 07:33:17 #29952

  Ú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 stivi1g #29951 üzenetére

  Range("H34") = "minta"
  Range("H34").Offset(1, 0).Select

  Poffsoft jó választ adott, csak a Offset-et felejtette ki.

• #29948 Delila_1 veterán stivi1g #29942

  Új Válasz 2015-12-20 13:51:57 #29948

  Ú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 stivi1g #29942 üzenetére

  Hagyjuk el a Select utasítást, ahol lehet. Az értékadásnál elhagyhatod, és a FormulaR1C1-re sincs szükség.

  Range("H34")="minta"
  range("H35").Select

• #29945 poffsoft veterán stivi1g #29944

  Új Válasz 2015-12-20 09:25:59 #29945

  Ú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

  

  poffsoft

  veterán

  válasz stivi1g #29944 üzenetére

  Igen,
  elvileg az (1,0) az egy sorral lejjebbi lenne,
  ezért változtasd a számokat nyugodtan, amíg jó nem lesz.

• #29943 poffsoft veterán stivi1g #29942

  Új Válasz 2015-12-20 09:07:50 #29943

  Ú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

  

  poffsoft

  veterán

  válasz stivi1g #29942 üzenetére

  az offsetre van szükséged, pl:
  ActiveCell(1,0).Select

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