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

• #29751 Delila_1 veterán Zimmy88 #29749

  Új Válasz 2015-12-08 13:51:28 #29751

  Ú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 Zimmy88 #29749 üzenetére

  Nem érdemes a teljes sorokat megadni, mert egy halom üres cellán is végig kellene mennie a ciklusnak. Ehelyett területet adj meg.

  Sub mm()
  Dim lap As Integer, r As Range, nev As String, utvonal As String
  Dim terulet As Range
  
  utvonal = "C:\Temp\"
  
  For lap = 1 To Worksheets.Count
  Sheets(lap).Select
  Set terulet = Range("A4:J4,A9:J11,A16:J16")
  For Each r In terulet
  Range(r.Address) = r.Value
  Next
  nev = ActiveSheet.Name
  ActiveSheet.Copy
  ActiveWorkbook.SaveAs Filename:=utvonal & nev & ".xlsx"
  ActiveWindow.Close
  Next
  End Sub

  Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

• #29758 Delila_1 veterán Zimmy88 #29753

  Új Válasz 2015-12-08 17:29:39 #29758

  Ú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 Zimmy88 #29753 üzenetére

  Most gyorsabb lesz. Folytatnod kell az elso = 8: ucso = 9: GoSub Atir típusú sorokat.
  Az oszlopok törlése részbe a saját törlendő oszlopaidat írd be.

  Sub mm()
  Dim lap As Integer, nev As String, utvonal As String
  Dim elso As Long, ucso As Long
  utvonal = "D:\kiment\"
  
  For lap = 1 To Worksheets.Count
  If Sheets(lap).Range("B1") = "ez kell" Then
  Sheets(lap).Select
  
  elso = 8: ucso = 9: GoSub Atir
  elso = 12: ucso = 14: GoSub Atir
  elso = 16: ucso = 17: GoSub Atir
  elso = 20: ucso = 22: GoSub Atir
  '*** stb ***
  
  'oszlopok törlése
  Range("B:D,F:F").Delete Shift:=xlToLeft
  
  nev = ActiveSheet.Name
  ActiveSheet.Copy
  ActiveWorkbook.SaveAs Filename:=utvonal & nev & ".xlsx"
  ActiveWindow.Close
  End If
  Next
  Exit Sub
  
  Atir:
  Range("E" & elso & ":W" & ucso).Copy
  Range("E" & elso).PasteSpecial xlPasteValues
  Return
  
  End Sub

  Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

• #35138 Delila_1 veterán Zimmy88 #35135

  Új Válasz 2017-05-09 11:17:15 #35138

  Ú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 Zimmy88 #35135 üzenetére

  

  Fferi, nem lenne célszerű pontos keresésre állítani a HOL.VAN függvényt?

  [ Szerkesztve ]

  Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

• #35139 Fferi50 Topikgazda Zimmy88 #35135

  Új Válasz 2017-05-09 11:21:48 #35139

  Ú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

  

  Fferi50

  Topikgazda

  válasz Zimmy88 #35135 üzenetére

  Szia!

  Úgy gondolom, számított mezővel körülményes megcsinálni, hiszen új adatokat kellene beszúrni, a régi bontásával, a régi 1 helyett 2 vagy több új adatot, új megnevezéssel.
  Szerintem kellene egy olyan "segédadat" oszlopot/sort csinálnod, amelyben a bontott tételek is szerepelnek a nem bontandó városokéval együtt, a bontott tételek nevei is szerepelnek:
  pl. Kál 500
  Göd 1000
  Pér 800
  helyett:
  Kál 500
  Göd1 350
  Göd2 650
  Pér 800

  Persze a bontást képlettel is megoldhatod.

  Üdv.

  [ Szerkesztve ]

• #35142 Fferi50 Topikgazda Zimmy88 #35140

  Új Válasz 2017-05-09 11:34:20 #35142

  Ú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

  

  Fferi50

  Topikgazda

  válasz Zimmy88 #35140 üzenetére

  Szia!

  Szerintem pedig "magától" nem nagyon fogja tudni a pivot, hogy mit bontson mire.
  Ha kicsit pontosabban leírnád, hogy mit jelent az alaptábla és a minden hónapban tábla, milyen rendszerben vannak az adatok, talán tudnánk segíteni.

  Üdv.

• #35144 Fferi50 Topikgazda Zimmy88 #35143

  Új Válasz 2017-05-09 12:10:50 #35144

  Ú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

  

  Fferi50

  Topikgazda

  válasz Zimmy88 #35143 üzenetére

  Szia!

  A 10 oszlop az 10 különféle költség és ezeket kell összesítened?
  A havi tábla csak a tárgyhavi adatokat tartalmazza, vagy halmozott adatokat?
  A felosztási % éves szinten fix, vagy valamilyen költség - bevétel - létszám stb. alapján számítódik?

  Egy 50 soros mintát véletlen adatokkal feltehetnél szerintem valahova, talán nem nagy munka, benne azt is megmutatva, hogyan szeretnéd és mi alapján bontani az adatokat.

  Üdv.

• #35148 Delila_1 veterán Zimmy88 #35147

  Új Válasz 2017-05-09 15:01:22 #35148

  Ú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 Zimmy88 #35147 üzenetére

  Nézd meg a kimutatást..
  Ha sikerül összehozni (képletekkel) a letöltött adataidból a bal oldali táblázat első oszlopát, nyert ügyed van.

  Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

• #35149 Fferi50 Topikgazda Zimmy88 #35147

  Új Válasz 2017-05-09 15:52:03 #35149

  Ú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

  

  Fferi50

  Topikgazda

  válasz Zimmy88 #35147 üzenetére

  Szia!

  Tudom, nagyon szép a pivot , de mi lenne, ha a SZUMHA függvényt használnád?

  A oszlop B oszlop C oszlop D oszlop
  nevek Telephely arányok képlet:
  Kál --------------------1 =SZUMHA(A:A;$A1;HAVIADATOSZLOP)*C1
  Göd Göd1 0,35
  Göd Göd2 0,65
  Pér --------------------1
  stb.

  A HAVIADATOSZLOP a külső hivatkozás a havi fájlra.
  Az oszlopok pedig akár havonta jöhetnének egymás után....

  Üdv.

  [ Szerkesztve ]

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