Aktív témák

• #273 MartinIsti csendes tag Kituggya #272

  2006-04-28 10:40:25 #273

  Ö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

  

  MartinIsti

  csendes tag

  válasz Kituggya #272 üzenetére

  Nem csináltad rosszul, hanem a CTRL-C CTRL-V varázslatba hiba csúszott. Ha minden igaz, akkor az idézőjelekből a beillesztéskor dupla aposztróf lett ('' helyett ''), ami ránézésre ugyanolyan, de a VB-nek persze más.
  
  Ha piros sorokban az összesítő szó két végén kicseréled idézőjelre, akkor már elvileg jó lesz.
  
  Ha lépésenként szeretnéd megnézni, hogy miket hajt végre, akkor az F8-at kezd el nyomogatni az editorban, és ha akarsz, az egyes lépések között nyugodtan átválthatsz az Excel munkalapra. (de az F8 csak a VBEditorban műkszik).
  
  Szívesen segítettem (illetve eddig még csak próbáltam;o))

• #271 MartinIsti csendes tag Kituggya #269

  2006-04-27 15:41:44 #271

  Ö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

  

  MartinIsti

  csendes tag

  válasz Kituggya #269 üzenetére

  Ja, azt elfeledtem hozzátenni, hogy ez új sort nem rak be Neked az összesítőbe, de nem is teljesen értettem, hogy miért kell akkor oda olyan? Ha amúgy is kimarad egy, miután az előző munkalapból kiemelte a makró az értékeket...
  
  Plussz még annyi, hogy ha egyszer lefuttattad, akkor nem lehet újra, amíg van ''összesítő'' nevű munkalap, úgyhogy azt töröld ki, és végeztesd el vele még egyszer.
  
  Remélem tudtam segíteni!

• #270 MartinIsti csendes tag Kituggya #269

  2006-04-27 15:06:09 #270

  Ö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

  

  MartinIsti

  csendes tag

  válasz Kituggya #269 üzenetére

  Szia!
  
  Ugyan én sem vagyok profi makrós, de ezt szerintem nyugodtan kipróbálhatod:
  
  Option Explicit
  Option Base 1
  
  Sub kituggya()
  
  'változók definiálása
  Dim a, b, i As Integer
  Dim kijeloles(3) As Double
  
  'Összesítő nevű munkalap beszúrása a végére
  a = Sheets.Count
  Sheets.Add After:=Sheets(a)
  Sheets(a + 1).Name = ''összesítő''
  
  
  'a kívánt cellák értékeinek tömbbe írása (első érték a sor, második az oszlop)
  For i = 1 To a
  Sheets(i).Select
  kijeloles(1) = Cells(1, 1)
  kijeloles(2) = Cells(2, 1)
  kijeloles(3) = Cells(4, 1)
  'Selection.Copy
  
  Sheets(''összesítő'').Select
  b = (i - 1) * 4 'a b csak egy kis segédváltozó, az egymás után illesztés miatt
  Cells(1 + b, 1) = kijeloles(1)
  Cells(2 + b, 1) = kijeloles(2)
  Cells(3 + b, 1) = kijeloles(3)
  Next i
  
  End Sub
  
  Írj vissza majd, hogy működik-e, illetve megfelel-e Neked!

Aktív témák