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

• #35969 Delila_1 veterán Imu #35968

  Új Válasz 2017-08-13 17:07:09 #35969

  Ú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 Imu #35968 üzenetére

  

• #35966 Delila_1 veterán Imu #35964

  Új Válasz 2017-08-13 13:18:47 #35966

  Ú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 Imu #35964 üzenetére

  Rögzítsd makróban a műveletet, tegyél ki hozzá egy gombot, és már adhatod is Marikának, vagy a technológus Gézának, Janinak.

• #35965 föccer nagyúr Imu #35964

  Új Válasz 2017-08-13 11:02:07 #35965

  Ú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

  

  föccer

  nagyúr

  válasz Imu #35964 üzenetére

  Teljesen jó, nyomós érv. Én sem adom ki a kezeim közül a saját táblázataimat, csak a kiexportált PDF-eket, illetve a technológus kollégáknak mentegy egy külön adatfájlt, amibe külön érték beillesztést cisnálok nekik a releváns információkról.

  üdv, föccer

• #35963 föccer nagyúr Imu #35961

  Új Válasz 2017-08-12 22:20:04 #35963

  Ú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

  

  föccer

  nagyúr

  válasz Imu #35961 üzenetére

  Az nem megfelelő, hogy egy másik munka lapon egymás alá másolod a két oszlopot, majd adatok ismétlődések eltávolítása, és a megfelelő munkalapra visszaszúrod az eredményt? Kb 30 másodperc.

  üdv, föccer

• #10466 Delila_1 veterán Imu #10465

  Új Válasz 2011-06-10 08:29:12 #10466

  Ú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 Imu #10465 üzenetére

  A számot sem kell beírni, hanem a Ctrl bill. lenyomása mellett kell "lehúzni" a cellát.

• #9721 Delila_1 veterán Imu #9718

  Új Válasz 2011-03-20 19:04:40 #9721

  Ú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 Imu #9718 üzenetére

  A csatolt képen a 3-as lapon ott van a cím, és egy 4 soros összegzés, aminek a másolás után lentebb kell kerülnie. A meglévő cím miatt első esetben sem kell a 2. lapról A1-gyel kezdeni a másolást, elég a 8. sortól.

  Most megírtam úgy a makrót, hogy az első gombnyomásra beviszi a 2. lap adatait lentebb tolva az összegzést, másodikra ez alá beteszi a következőt, és még 2 esetben a következő kettőt. Vagyis ezzel összesen 4 árajánlatot másolhatsz be egymás alá.

  Sub copyz()
  Dim usor As Long
  Sheets("Munka3").Select
  usor = Range("E60000").End(xlUp).Row
  
  Select Case usor
  Case 13
  Range("A8:A38").EntireRow.Insert
  Sheets("Munka2").Range("A8:G38").Copy
  Range("A8").Select
  Case 44
  Range("A40:G74").EntireRow.Insert
  Sheets("Munka2").Range("A8:G38").Copy
  Range("A43").Select
  Case 79
  Range("A74:G108").EntireRow.Insert
  Sheets("Munka2").Range("A8:G38").Copy
  Range("A78").Select
  Case 114
  Range("A109:G143").EntireRow.Insert
  Sheets("Munka2").Range("A8:G38").Copy
  Range("A113").Select
  End Select
  Sheets("Munka2").Range("A8:G38").Copy
  Selection.PasteSpecial Paste:=xlPasteValues
  Selection.PasteSpecial Paste:=xlPasteFormats
  Cells(1).Select
  End Sub

• #9719 perfag aktív tag Imu #9718

  Új Válasz 2011-03-20 17:30:56 #9719

  Ú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

  

  perfag

  aktív tag

  válasz Imu #9718 üzenetére

  Gondolkodtam én is a problémádon. Nem igazán tetszik ez az egy gombbal két legyet egy csapása gondolat. Felmerül a kérdés honnan tudod/tudja a felhasználó hanyadik kattintásnál is tart?
  Meg lehet oldani úgy, hogy az első kattintás után a gomb szövege is változzon, de szerintem egy választókapcsoló jobb lenne. Ha rákattintasz a gombra az is automatikusan átáll a másik helyzetbe.
  Húzós két napom volt, most pihenek, ha más nem oldja meg akkor hétfőn du. megcsinálom. Nem neked, a magam örömére

• #9717 Delila_1 veterán Imu #9705

  Új Válasz 2011-03-20 15:08:33 #9717

  Ú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 Imu #9705 üzenetére

  Nagy baj, ha 1 gombnyomásra csinálja meg a két másolást? Ha nem, akkor az alábbi makró elintézi.

  Sub copyz()
  Sheets("Munka3").Select
  Range("A8:A73").EntireRow.Insert
  Sheets("Munka2").Range("A8:G38").Copy
  Range("A8").Select
  Selection.PasteSpecial Paste:=xlPasteValues
  Selection.PasteSpecial Paste:=xlPasteFormats
  Range("A8:G38").Copy Range("A43")
  Cells(1).Select
  End Sub

  VIGYÁZAT! Nem lehetnek összevont cellák a 2-es lap A8:G38 tartományában, mert az értékmásolás nem tekinti azonos méretűnek a másolt-, és a beillesztési területet. Meg lehet másképp is oldani. Pl. a 31-32 sor C:E összegeit tedd a 32. sorba. Nem annyira látványos, mint most, de legalább működik.
  A vízszintesen egyesített cellák helyett kiválóan lehet alkalmazni a következő formátumot: kijelölöd az A28:B28 cellákat, Cellaformázás, Igazítás fül, a Vízszintesen listából "A kijelölés közepére".

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