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

• #6415 mr.nagy tag Cuci3 #6413

  Új Válasz 2010-03-01 14:13:36 #6415

  Ú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

  

  mr.nagy

  tag

  válasz Cuci3 #6413 üzenetére

  Igen akkor jön elő a hibaüzenet, mikor be kellene zárnia az eredeti "akcio-minden-aruhaz" munkafüzetet és csak az újat nyitva hagyni amibe bemásolta az adatokat és a formátumot.

• #6411 mr.nagy tag

  Új Válasz 2010-03-01 13:41:46 #6411

  Ú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

  

  mr.nagy

  tag

  Sziasztok!

  Van egy makro kódom ami a következőképpen néz ki:

  Private Sub CommandButton1_Click()
  
  
  
  Dim ws As Worksheet
  Set ws = Worksheets("akció")
  
  'év ellenőrzés
  If Trim(Me.TextBox1.Value) = "" Then
  MsgBox "Nincs megadva az év!"
  Exit Sub
  End If
  'szám ellenőrzés
  If Trim(Me.TextBox2.Value) = "" Then
  MsgBox "Nincs megadva az akció száma!"
  Exit Sub
  End If
  
  'adatok rögzítése a táblába
  
  ws.Cells(1, 2).Value = Me.TextBox1.Value 'év
  ws.Cells(2, 2).Value = Me.TextBox2.Value 'szám
  
  'kiürítés
  Me.TextBox1.Value = ""
  Me.TextBox2.Value = ""
  
  
  'kijelölt mező
  Me.TextBox1.SetFocus
  
  
  Unload UserForm1
  
  Sheets("Munka1").Activate
  Sheets("Munka1").Range("A6").Select
  Selection.QueryTable.Refresh BackgroundQuery:=False
  
  Sheets("Munka2").Activate
  Sheets("Munka2").Range("A1").Select
  Selection.QueryTable.Refresh BackgroundQuery:=False
  
  Sheets("Munka3").Activate
  Sheets("Munka3").Range("A1").Select
  Selection.QueryTable.Refresh BackgroundQuery:=False
  
  Sheets("Munka3").Activate
  Sheets("Munka3").Range("M4").Select
  ActiveSheet.PivotTables("Kimutatás2").PivotCache.Refresh
  
  Sheets("akció").Activate
  Sheets("akció").Range("C5").Select
  ActiveSheet.PivotTables("Kimutatás3").PivotCache.Refresh
  
  Cells.Select
  Selection.Copy
  Workbooks.Add
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  :=False, Transpose:=False
  Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks _
  :=False, Transpose:=False
  Application.CutCopyMode = False
  Range("G6").Select
  ActiveWindow.FreezePanes = True
  
  Rows("5:5").Select
  With Selection
  .VerticalAlignment = xlBottom
  .WrapText = True
  .Orientation = 0
  .AddIndent = False
  .ShrinkToFit = False
  .ReadingOrder = xlContext
  .MergeCells = False
  End With
  Columns("G:DB").Select
  Selection.ColumnWidth = 7.71
  Range("CX4:DB4").Select
  Range("DB4").Activate
  With Selection
  .HorizontalAlignment = xlLeft
  .VerticalAlignment = xlBottom
  .WrapText = True
  .Orientation = 1
  .AddIndent = False
  .IndentLevel = 0
  .ShrinkToFit = False
  .ReadingOrder = xlContext
  .MergeCells = False
  End With
  With Selection.Font
  .Name = "Arial"
  .Size = 8
  .Strikethrough = False
  .Superscript = False
  .Subscript = False
  .OutlineFont = False
  .Shadow = False
  .Underline = xlUnderlineStyleNone
  .ColorIndex = 1
  End With
  Range("CX4:DB4").Select
  With Selection
  .HorizontalAlignment = xlLeft
  .VerticalAlignment = xlBottom
  .WrapText = True
  .Orientation = 0
  .AddIndent = False
  .IndentLevel = 0
  .ShrinkToFit = False
  .ReadingOrder = xlContext
  .MergeCells = False
  End With
  Rows("5:5").Select
  Selection.AutoFilter
  Application.CutCopyMode = False 'a pillanatnyi kijelölést szünteti meg'
  Application.DisplayAlerts = False
  
  
  Windows("akcio-minden-aruhaz").Activate
  ActiveWindow.Close
  Application.DisplayAlerts = True
  
  
  End Sub
  
  Private Sub CommandButton2_Click()
  Unload UserForm1
  End Sub

  Bizonyos számítógépeken a következő hiba üzenetet kapom:
  Run-time error'9':
  Subscript out of range

  Érdekes, hogy nem minden gépen jön elő a hiba üzenet. Ha a debugra kattintok a következő sort jelöli ki: ActiveWindow.Close

  Tudnátok segíteni, mi lehet a gond és hogyan javítható ki?!

• #6305 mr.nagy tag Delila_1 #6298

  Új Válasz 2010-02-23 16:23:28 #6305

  Ú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

  

  mr.nagy

  tag

  válasz Delila_1 #6298 üzenetére

  Bocsánat én baltáztam el. A cella értéket választottam, nem a képlet értéket.

  Köszönöm!

• #6297 mr.nagy tag Delila_1 #6296

  Új Válasz 2010-02-23 15:44:23 #6297

  Ú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

  

  mr.nagy

  tag

  válasz Delila_1 #6296 üzenetére

  Nem, nem vettem bele.

• #6295 mr.nagy tag Delila_1 #6294

  Új Válasz 2010-02-23 15:40:57 #6295

  Ú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

  

  mr.nagy

  tag

  válasz Delila_1 #6294 üzenetére

  Kedves Delila!

  Köszönöm! Ezzel próbálkoztam én is de nem működik! - csak nem tudom miért?

• #6293 mr.nagy tag

  Új Válasz 2010-02-23 14:39:57 #6293

  Ú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

  

  mr.nagy

  tag

  Sziasztok!

  Ismét egy kis segítséget kérnék! Van egy pivot tábla melyet feltételes formázással kellene ellátnom. Mégpedig ha a H oszlopban lévő adat kisebb mint a J oszlopban lévő akkor valamelyik oszlopban a cella hátterét szinezze pirosra. A dolgot még az is bonyolítja, hogy mindkettőben előfordulhat 0 érték és a sorok száma is változó. Megpróbáltam simán csak feltételes formázással megadni, hogy ha H kisebb mint J aakor piros legyen a háttér, de összevissza szinezett.

  Köszönöm!

• #6240 mr.nagy tag ulrik19 #6239

  Új Válasz 2010-02-19 16:54:23 #6240

  Ú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

  

  mr.nagy

  tag

  válasz ulrik19 #6239 üzenetére

  Köszönöm! Jó az ötlet, kipróbálom.

• #6238 mr.nagy tag ulrik19 #6236

  Új Válasz 2010-02-19 08:12:28 #6238

  Ú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

  

  mr.nagy

  tag

  válasz ulrik19 #6236 üzenetére

  Köszönöm! A sorok száma változó, de az oszlopok mindíg ugyanazok.

  A jobb érthetőség kedvéért:
  Mondjuk, hogy az oszlopokban forgalom és készlet adatok vannnak üzletenként. Nekem ehhez kellene még egy oszlop, hogy beírjam a rendelési javaslatot. Ugyanakkor ha egy hét múlva újból frissítésre kerülnek az adatok akkor már nem biztos, hogy ugyan annak az üzletnek teszek javaslatot vagy sem, az adatoktól függően.

• #6237 mr.nagy tag Delila_1 #6235

  Új Válasz 2010-02-19 08:06:34 #6237

  Ú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

  

  mr.nagy

  tag

  válasz Delila_1 #6235 üzenetére

  Köszönöm, de pont ezt akartam elkerülni! Ekkor ugyanis már nem lessz frissíthető az adat egy kattintással.

• #6234 mr.nagy tag

  Új Válasz 2010-02-19 07:46:08 #6234

  Ú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

  

  mr.nagy

  tag

  Sziasztok!

  "Az excelben a kimutatás adatai közvetlenül nem módosíthatók, ehelyett a forrásadatokat kell módosítani, majd frissíteni kell a kimutatást."
  Nekem viszont arra lenne szükségem, hogy a kimutatás oszlopaiban található adatok mellé új adatokat tudjak beírni, de ugyanakkor a kimutatás frissíthető maradjon (annak amit én beirok mellé nem kell frissülnie, csak az alap forrásadatoknak).

  Ha ezt egyszer kellene megcsinálni nem lenne gond, de ezt heti rendszerességgel és több ezer soros kimutatásban kell megcsinálni. Tudtok erre valami megoldást?
  
  Tehát a példa kimutatásban minden összesen oszlop után be kellene szúrnom még egy oszlopot és oda adatokat beírni.

• #6176 mr.nagy tag Delila_1 #6175

  Új Válasz 2010-02-07 19:16:00 #6176

  Ú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

  

  mr.nagy

  tag

  válasz Delila_1 #6175 üzenetére

  Köszönöm!

• #6174 mr.nagy tag

  Új Válasz 2010-02-07 12:50:14 #6174

  Ú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

  

  mr.nagy

  tag

  Sziasztok!

  Egy sorban kellene megszámolni, hány darab nem üres cella van. Melyik függvénnyel lehet ezt megcsinálni?

  Köszönöm!

• #5749 mr.nagy tag Fehér Mancs #5748

  Új Válasz 2009-11-26 21:28:00 #5749

  Ú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

  

  mr.nagy

  tag

  válasz Fehér Mancs #5748 üzenetére

  Ezt is próbáltam amit javasoltál, de nem jött be, viszont Cuci megoldása bevált. Azért köszönöm!

• #5747 mr.nagy tag Cuci3 #5746

  Új Válasz 2009-11-26 06:57:45 #5747

  Ú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

  

  mr.nagy

  tag

  válasz Cuci3 #5746 üzenetére

  Köszönöm, ha beérek a céghez kipróbálom!

• #5745 mr.nagy tag

  Új Válasz 2009-11-25 18:47:15 #5745

  Ú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

  

  mr.nagy

  tag

  Sziasztok!

  Az lenne a kérdésem, hogyan lehetne megoldani, hogy egy pivot táblában az adatterületre két féle adatot tennék. Ekkor a sorok területét bontja szét a kétféle adathoz. Nekem viszont úgy kellene, hogy az oszlop területet bontsa kétfelé.

  Köszönöm!

• #5433 mr.nagy tag

  Új Válasz 2009-10-03 16:00:36 #5433

  Ú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

  

  mr.nagy

  tag

  Sziasztok!

  A következőhöz kérném segítségetek:

  (Office 2003) - Adott egy táblázat aminek az A oszlopában szerepelnek az egyedi azonosítók, a B oszlpoban nevek találhatók. Azt kellene megoldani, hogy ha az autoszűrővel kiválasztásra kerül egy név a B oszlopban akkor a mellette az A oszlopban található azonosítót automatikusan másolja be egy megadott cellába (pl a G2-be).

  Köszönöm!

• #3931 mr.nagy tag

  Új Válasz 2008-10-05 10:50:54 #3931

  Ú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

  

  mr.nagy

  tag

  Sziasztok!

  A következőkre keresnék megoldást:

  Egy táblázat adott sorában szereplő cellák közzül meg kellene keresni melyikben van egy adott cellától kisebb, de nem nulla érték és a sor utolsó üres cellájába beírni, hogy hány ilyen cella van.

  Szerintetek mivel lehetne ezt megoldani?

  Egyébként feltételes formázással ezek a cellák szinezve vannak, tehát ha azt meglehetne oldani, hogy számolja össze, hogy a sorban hány mondjuk piros cella van az is megoldást jelentene.

  Köszönöm!

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