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

• #40510 Lasersailing senior tag Bishop1 #40508

  Új Válasz 2019-03-22 09:45:46 #40510

  Ú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

  

  Lasersailing

  senior tag

  válasz Bishop1 #40508 üzenetére

  Szia,

  Ha jól értem, akkor neked a sumif fog segíteni (magyarul szumha a neve, ha jól emlékszem) :

  =SUMIF(B:B,"X",A:A)

• #16863 Delila_1 veterán Bishop1 #16858

  Új Válasz 2013-02-23 17:29:03 #16863

  Ú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 Bishop1 #16858 üzenetére

  Figyelmesebben átolvasva azt szeretnéd, ha az új, dátum nevű lapokon a"t "lap címsora (A1:D1 tartomány) jelenne meg a második sorban, az A1 cellában pedig a dátum. Ha jól értem, nincs szükség az autoszűrő ki-bekapcsolására, csak a felső sort kell másolni.

  Javaslom, hogy a bővítménykezelőben kapcsold be az Analysis ToolPak és az Analysis ToolPak -VBA bővítményeket, mert valószínű, hogy ezeknek a hiánya miatt futott hibára az előző verzió. Ezekkel kapsz egy halom hasznos új függvényt.

  Sub Gomb80_Kattintás()
  Dim lap As Integer, szam, ujnev
  Sheets(1).Select
  lap = Worksheets.Count
  If Left(Sheets(lap).Name, 10) = CDate(Date) And Len(Sheets(lap).Name) > 11 Then
  szam = Right(Sheets(lap).Name, Len(Sheets(lap).Name) - 12)
  ujnev = szam + 1
  Sheets.Add After:=Sheets(lap)
  ActiveSheet.Name = Date & "_" & ujnev
  Else
  Sheets.Add After:=Sheets(lap)
  ActiveSheet.Name = Date & "_1"
  End If
  
  Sheets("t").Range("A1:D1").Copy Sheets(lap + 1).Range("A2")
  Sheets(lap + 1).Select
  Range("A1") = Date
  Columns("A:A").ColumnWidth = 24
  Sheets("napi").Select
  End Sub

• #16859 Bishop1 tag Bishop1 #16858

  Új Válasz 2013-02-23 13:59:56 #16859

  Ú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

  

  Bishop1

  tag

  válasz Bishop1 #16858 üzenetére

  Erre jutottam végül kis segítséggel, de ez nem számlálja az oldalakat, vagyis ha aznap még egy munkalapot nyitnék akkor hibaüzenetet ad az azonos munkalap nevek miatt. Ezt továbbgondolva, mi a módja hogy ha ilyenkor nyitáskor azonos munkalap nevet talál felülírja a frissebbel?

  Sub Gomb80_Kattintás()
  '
  ' Gomb80_Kattintás Makró
  '
  
  '
  Sheets("t").Select
  Range("A1").Select
  Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
  Selection.AutoFilter
  ActiveSheet.Range("$A$1:$D$66").AutoFilter Field:=3, Criteria1:="<>"
  Selection.Copy
  Sheets.Add(After:=Worksheets(Sheets.Count)).Name = Date
  Columns("A:A").ColumnWidth = 24
  ActiveSheet.Paste
  Range("A1").Select
  Application.CutCopyMode = False
  ActiveCell.FormulaR1C1 = "2/23/2013"
  Sheets("t").Select
  Selection.AutoFilter
  Sheets("napi").Select
  Range("O8").Select
  End Sub

• #16856 Delila_1 veterán Bishop1 #16855

  Új Válasz 2013-02-23 09:51:56 #16856

  Ú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 Bishop1 #16855 üzenetére

  Szólj, ha valami gondod akad a makrókkal!

• #16854 Delila_1 veterán Bishop1 #16852

  Új Válasz 2013-02-23 09:40:52 #16854

  Ú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 Bishop1 #16852 üzenetére

  Második kérdés. A Gyűjtő nevű lap C:D oszlopába gyűjti ki a 20-szal kezdődő nevű napok C1:D1 cellájának az adatait.

  Sub C1D1()
  Dim usor As Integer, lap As Integer
  For lap = 1 To Worksheets.Count
  If Left(Sheets(lap).Name, 2) = "20" Then
  usor = Sheets("Gyűjtő").Cells(Rows.Count, "C").End(xlUp).Row + 1
  Sheets(lap).Range("C1:D1").Copy Sheets("Gyűjtő").Range("C" & usor)
  End If
  Next
  End Sub

• #16853 Delila_1 veterán Bishop1 #16852

  Új Válasz 2013-02-23 09:27:55 #16853

  Ú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 Bishop1 #16852 üzenetére

  Az első kérdésre a makró:

  Sub Gomb80_Kattintás()
  Dim lap As Integer, szam, ujnev
  Sheets(1).Select
  lap = Worksheets.Count
  If Left(Sheets(lap).Name, 10) = CDate(Date) And Len(Sheets(lap).Name) > 11 Then
  szam = Right(Sheets(lap).Name, Len(Sheets(lap).Name) - 12)
  ujnev = szam + 1
  Sheets.Add After:=Sheets(lap)
  ActiveSheet.Name = Date & "_" & ujnev
  Else
  Sheets.Add After:=Sheets(lap)
  ActiveSheet.Name = Date & "_1"
  End If
  
  Sheets(1).Select
  Range("A1").Select
  Selection.CurrentRegion.Select
  lap = Worksheets.Count
  Selection.Copy Sheets(lap).Range("A1")
  Sheets(lap).Select
  Selection.AutoFilter
  Columns("A:A").ColumnWidth = 24
  End Sub

• #16830 Delila_1 veterán Bishop1 #16829

  Új Válasz 2013-02-21 10:31:35 #16830

  Ú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 Bishop1 #16829 üzenetére

  Próbáld meg másik gépen, vagy küldd el a füzetet, és rajzolok néhány fekvőt.

• #16828 Delila_1 veterán Bishop1 #16826

  Új Válasz 2013-02-21 08:11:34 #16828

  Ú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 Bishop1 #16826 üzenetére

  Kijelölöd az űrlapvezérlőt. A szálkereszttel megrajzolod. Ha álló téglalapot rajzolsz vele, függőleges elrendezésű lesz a léptető vagy a görgető sáv, fekvő téglalapnál vízszintes. Ennyi.

• #16826 Bishop1 tag Bishop1 #16815

  Új Válasz 2013-02-20 22:08:06 #16826

  Ú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

  

  Bishop1

  tag

  válasz Bishop1 #16815 üzenetére

  Senki nem tud segíteni? :S Nagyon fontos lenne még ma megoldanom és azt hittem csak valami csúnyán elkerüli a figyelmemet. Bosszantó hogy full kezdőként a függvényeket simán megírtam a nyavajás nyilat meg nem tudom elfordítani.

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