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

• #20303 Delila_1 veterán torment #20302

  Új Válasz 2014-02-01 15:07:52 #20303

  Ú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 torment #20302 üzenetére

  Örülök, hogy így látod, szívesen.

• #20300 Delila_1 veterán torment #20297

  Új Válasz 2014-02-01 14:42:26 #20300

  Ú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 torment #20297 üzenetére

  Írd be a Munka2 lapra a 3 soros címet (ha még nem tetted meg), a makró elvégzi a többit.

  Sub Valami()
  Dim sor1 As Long, sor2 As Long, oszlop As Long
  Dim WS1 As Worksheet, WS2 As Worksheet
  
  Set WS1 = Sheets("Munka1")
  Set WS2 = Sheets("Munka2")
  
  WS1.Activate
  sor1 = 2: sor2 = 4
  
  Do While Cells(sor1, 1) > ""
  For oszlop = 1 To 5
  WS2.Cells(sor2, oszlop) = Cells(sor1, oszlop)
  Next
  
  For oszlop = 6 To 9
  WS2.Cells(sor2 + 1, oszlop - 4) = Cells(sor1, oszlop)
  Next
  
  For oszlop = 10 To 13
  WS2.Cells(sor2 + 2, oszlop - 8) = Cells(sor1, oszlop)
  Next
  
  sor1 = sor1 + 1: sor2 = sor2 + 3
  Loop
  End Sub

• #12807 Pá addikt torment #12799

  Új Válasz 2012-02-04 12:08:51 #12807

  Ú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

  

  Pá

  addikt

  válasz torment #12799 üzenetére

  Sajnos nem találok ilyet... 2007-es excelem van, ebben még nincs? Vagy csak én vagyok béna?

• #12330 Delila_1 veterán torment #12328

  Új Válasz 2011-12-13 08:01:04 #12330

  Ú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 torment #12328 üzenetére

  Szívesen.

• #12327 Delila_1 veterán torment #12326

  Új Válasz 2011-12-13 07:36:58 #12327

  Ú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 torment #12326 üzenetére

  Cells(10, 1) = Application.InputBox("Szöveg", "Cím", Type:=1)
  Range("A10").NumberFormat = "0.00"

• #12212 Delila_1 veterán torment #12211

  Új Válasz 2011-12-02 08:03:08 #12212

  Ú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 torment #12211 üzenetére

  Szívesen.

• #12206 Delila_1 veterán torment #12203

  Új Válasz 2011-12-01 07:24:17 #12206

  Ú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 torment #12203 üzenetére

  A lapnév mindig szöveg formátumú, még ha "szemre" dátumot mutat is.

  Szúrj be egy lapot Lista névvel, ide listázza majd ki a lapok makró a dátumos lapneveket.

  Sub lapok()
  Dim lap%, lapnév As String, usor%
  
  For lap% = 1 To ThisWorkbook.Sheets.Count
  lapnév = Sheets(lap%).Name
  If Len(lapnév) = 10 And Mid(lapnév, 5, 1) = "." And Mid(lapnév, 8, 1) = "." Then
  usor% = Sheets("Lista").Range("A" & Rows.Count).End(xlUp).Row + 1
  Sheets("Lista").Range("A" & usor%) = lapnév
  End If
  Next
  End Sub

  A makróban feltételeztem, hogy a lapnevek 2011.12.01 formátumúak. A feltételt tartalmazó sort lehetne bővíteni, pontosítani. Itt csak a lapnév hosszát, és a két pont helyét ellenőriztettem.

• #12053 perfag aktív tag torment #12052

  Új Válasz 2011-11-17 19:26:42 #12053

  Ú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 torment #12052 üzenetére

  Delila már szóvá tette: amikor a hozzászólást írod használd a Programkód gombot mosolygók ellen!

• #12036 Apollo17hu őstag torment #12034

  Új Válasz 2011-11-15 19:54:03 #12036

  Ú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

  

  Apollo17hu

  őstag

  válasz torment #12034 üzenetére

  Ez esetleg?

  =HA(ÉS((MOST()-MA())*24>=6;(MOST()-MA())*24<14);"1. műszak";HA(ÉS((MOST()-MA())*24>=14;(MOST()-MA())*24<22);"2. műszak";"3. műszak"))

• #12035 perfag aktív tag torment #12034

  Új Válasz 2011-11-15 19:44:52 #12035

  Ú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 torment #12034 üzenetére

  Állj a sarkadra! A beviteli lista nagyon OK, kár piszkálni.

• #12029 Delila_1 veterán torment #12028

  Új Válasz 2011-11-15 08:11:20 #12029

  Ú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 torment #12028 üzenetére

  Szívesen.

  Lelki szemeim előtt már látom is Perfagot nagy fehér szárnyakkal.

• #12027 Delila_1 veterán torment #12026

  Új Válasz 2011-11-15 07:32:11 #12027

  Ú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 torment #12026 üzenetére

  Perfag makrójába írtam be a
  lap = "gép" & Range("X15") & "_heti" sort, és a másolásnál a lap helyét ennek megfelelően módosítottam.

  Sub Másol()
  Sheets("Lemez_Spc").Select
  Dim lap As String, sor As Integer, oszlop As Integer
  
  lap = "gép" & Range("X15") & "_heti"
  sor = Range("Y21")
  oszlop = Range("Y6")
  
  Range("B35:F42").Copy Sheets(lap).Range("B3").Offset((sor - 1) * 8, (oszlop - 1) * 5)
  End Sub

• #12022 perfag aktív tag torment #12016

  Új Válasz 2011-11-14 13:32:22 #12022

  Ú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 torment #12016 üzenetére

  Látom mire hazaértem megoldódott a dolog. Annyi baj legyen, ha már belekezdtem itt a kód:
  Sub Másol()
  Worksheets("Lemez_Spc").Select
  sorok = Range("Y21")
  oszlopok = Range("Y6")
  
  Range("B35:F42").Copy Worksheets("Heti_adatbázis").Range("B3").Offset((sorok - 1) * 8, (oszlopok - 1) * 5)
  End Sub

• #12020 Delila_1 veterán torment #12019

  Új Válasz 2011-11-14 12:03:34 #12020

  Ú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 torment #12019 üzenetére

  Szívesen. El ne fusson a makró!

• #12017 Delila_1 veterán torment #12014

  Új Válasz 2011-11-14 11:10:29 #12017

  Ú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 torment #12014 üzenetére

  Nem offset-tel oldottam meg, hanem a több elágazású select case-zel.

  A Select Case sorban meg kell adni a figyelendő változót, a Case1, Case2, ....Case7 sorokban pedig azt, hogy melyik érték esetén mit csináljon a program.

  Sub Másol()
  Dim sor%, oszlop%
  Sheets("Lemez_Spc").Select
  sor% = Range("Y21"): oszlop% = Range("Y6")
  
  Select Case sor%
  Case 1
  sor% = 3
  Case 2
  sor% = 11
  Case 3
  sor% = 19
  End Select
  
  Select Case oszlop%
  Case 1
  oszlop% = 2
  Case 2
  oszlop% = 7
  Case 3
  oszlop% = 12
  Case 4
  oszlop% = 17
  Case 5
  oszlop% = 22
  Case 6
  oszlop% = 27
  Case 7
  oszlop% = 32
  End Select
  
  Range("B35:F42").Copy Sheets("Heti_adatbázis").Cells(sor%, oszlop%)
  End Sub

  Szerk:
  A #12012-es hozzászólásban úgy látszik, mintha 2 sorban lenne megadva a honnan - hova másol, pedig 1 sorba kell írni, közötte szóközzel. Programkódként kellett volna megadnom.

• #12015 perfag aktív tag torment #12013

  Új Válasz 2011-11-14 09:58:46 #12015

  Ú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 torment #12013 üzenetére

  Újabb kérdés: látni vélek egy rendezettséget, amit ofszet segítségével ki lehetne használni.
  B3 az alap cella, ehhez képest a napok 5 oszloppal tolják el a cél tartományt, a műszakok pedig 8 sorral. Jól látom?
  Most még dolgozom (? ha a tanítást annak lehet mondani), dél körül végzek, ha addig DelDelila nem oldja meg, küldöm a kódot.

• #12012 Delila_1 veterán torment #12009

  Új Válasz 2011-11-14 08:16:47 #12012

  Ú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 torment #12009 üzenetére

  Addig is, míg Perfag kérdéseire válaszolsz, a másolás egyszerűbb módja

  sheets("Lemez_SPC").range("B35:F42").copy sheets("Heti_adatbázis").range("B3")

  elegendő.
  Ahhoz, hogy ne legyen mindenféle vigyori fej a képletben, ki kell jelölnöd, és a "Konvertálatlan" üzemmódot kell alkalmaznod.

• #12011 perfag aktív tag torment #12009

  Új Válasz 2011-11-14 07:10:18 #12011

  Ú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 torment #12009 üzenetére

  Az a helyzet, hogy én nem értem (ez persze nem meglepő, ennyi IQ-cskával amennyi nekem van .
  "a hét napjai, naponta három műszak" az a "3x7 feltétel" azt hiszem. Na de hol adod meg ezeket az adatokat? És milyen formában?
  "21 helyre kell adatot másolni." - kell, vagy lehet? 21-szer másolod ugyanazt az adatot valahova, vagy egyszer a 21 lehetséges hely valamelyikére? Ez a 21 hely 21 munkalap, vagy egy munkalap 21 különböző lehetséges tartománya? A felépítésről el kellene mondanod egy s mást.

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