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

• #42804 sztanozs veterán Sutyi73 #42803

  Új Válasz 2020-01-23 13:50:54 #42804

  Ú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

  

  sztanozs

  veterán

  válasz Sutyi73 #42803 üzenetére

  Azt jelenti, hogy a képlet megadása után nem sima entert, kurzornyilat nyomsz vagy elkattintasz a cellából, hanem Control+Shift+Enter-t egyszerre (pontosabban CTRL-t és SHIFT-et lenyomni és lenyomva tartani, utána/közben ENTER-t nyomsz).

• #42802 Mutt senior tag Sutyi73 #42801

  Új Válasz 2020-01-23 09:34:25 #42802

  Ú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

  

  Mutt

  senior tag

  válasz Sutyi73 #42801 üzenetére

  Szia,

  Excel 2007-től ez a tömbképlet használható:
  =SZORZATÖSSZEG(HAHIBA((HELYETTE(B5:BK5;"tm";"")+0)*SZÁM(SZÖVEG.KERES("tm";B5:BK5));0))

  Control+Shift+Enter kell a képlethez.

  Üdv

• #42338 Delila_1 veterán Sutyi73 #42332

  Új Válasz 2019-12-02 07:13:29 #42338

  Ú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 Sutyi73 #42332 üzenetére

  Private Sub Worksheet_Change(ByVal Target As Range)
If Target = "p" Then
With Target.Borders(xlDiagonalUp)
.ColorIndex = 3
.Weight = xlMedium
End With
Else
Target.Borders(xlDiagonalUp).LineStyle = xlNone
End If
End Sub

• #42326 Delila_1 veterán Sutyi73 #42324

  Új Válasz 2019-12-01 13:46:37 #42326

  Ú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 Sutyi73 #42324 üzenetére

  Private Sub Worksheet_Change(ByVal Target As Range)
If Target = "p" Then
With Target.Borders(xlDiagonalUp)
.ColorIndex = 3
.Weight = xlMedium
End With
End If
End Sub

• #42318 Delila_1 veterán Sutyi73 #42316

  Új Válasz 2019-11-30 12:11:50 #42318

  Ú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 Sutyi73 #42316 üzenetére

  Laphoz rendelt makróval megoldható.

  Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value = "p" Then Target.Borders(xlDiagonalUp).LineStyle = xlContinuous
If Target.Value = "o" Then Target.Borders(xlDiagonalDown).LineStyle = xlContinuous
End Sub

  Azért írtam meg "o" bevitelére is, mert nem tudom, melyik irányba szeretnéd dönteni az átlót. "p" esetében /, "o"-nál \.

• #42317 ny.janos tag Sutyi73 #42316

  Új Válasz 2019-11-30 11:25:17 #42317

  Ú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

  

  ny.janos

  tag

  válasz Sutyi73 #42316 üzenetére

  Szia!
  Mivel a feltételes formázásnál a szegélyek fülön az átlós szegély gomb inaktív (nem választható), így feltételezhetően erre nincs mód.
  Feltételezem, hogy ez csak makróval oldható meg.

• #41984 Fferi50 Topikgazda Sutyi73 #41983

  Új Válasz 2019-10-23 10:22:38 #41984

  Ú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 Sutyi73 #41983 üzenetére

  Szia!
  "ha az a1 cellába "N"-t írok, akkor ott "12,5" jelenjen meg"
  Azt, hogy ez saját magára megvalósulhasson, alapvetően makróval lehet megoldani - eseménykezeléssel. (Esetleg File - beállítások - Nyelvi ellenőrzés - automatikus javítási beállításokhoz felveszed, hogy az N-t írja át 12,5 -re, de EZ minden egyedül beírt N-t átír, bármelyik cellában legyen is az.)
  Ha másik cellában szeretnéd a 12,5 megjelenítését, akkor a HA függvény segíthet:
  =Ha(A1="N";12,5; "")
  "a szöveg színe legyen kék" => feltételes formázás
  " Hogyan lehet összesíteni pl. csak a kék színnel írt értékeket?"
  Színre összesíteni direktben csak makróban lehetséges.
  Van viszont színre szűrési lehetőség, a szűrt értékeket pedig a Részösszeg függvény tudja összesíteni, a 100 feletti függvényszámúak a rejtett sorokat nem számolják be.

  Üdv.

• #41981 Fferi50 Topikgazda Sutyi73 #41979

  Új Válasz 2019-10-23 07:13:08 #41981

  Ú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 Sutyi73 #41979 üzenetére

  Szia!
  Igen, feltételes formázás. Kijelölöd a két cellát. Kezdőlap - Feltételes formázás - Új szabály - A formázandó cellák kijelölése képlettel - Értékek formázása ha ez a képlet igaz: a képlet: =$A$1=P (ha konkrétan a P betű van ott, akkor "P" kell).
  Formátum gombra kattintva kiválasztod a piros háttérszínt.
  Majd OK.
  A szabályok kezelésénél megnézed, hogy a 2 cellára vonatkozik-e a szabály.
  Fontosak a $ jelek. Így mindig az A1 cella lesz a viszonyítási alap.

  Üdv.

• #41980 Delila_1 veterán Sutyi73 #41979

  Új Válasz 2019-10-23 07:10:53 #41980

  Ú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 Sutyi73 #41979 üzenetére

  Kijelölöd a formázandó tartományt, pl. A1 : B300.
  Feltételes formázás | Új szabály | A formázandó cellák kijelölése képlettel.
  Az Értékek formázása, ha ez a képlet igaz rovatba beírod: =$A1="P"
  Fontos a $ jel az A előtt, ez határozza meg, hogy az A oszlop értékét figyelje mindkét oszlop formázásánál.
  Megadod a formátumot.

• #41562 Delila_1 veterán Sutyi73 #41561

  Új Válasz 2019-08-13 07:56:59 #41562

  Ú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 Sutyi73 #41561 üzenetére

  Lemaradt a fele.

  Range("A2:E" & ActiveSheet.UsedRange.Rows.Count).Copy _
Destination:=wb.Worksheets("Célmunkalap").Range("A" & wb.Worksheets("Célmunkalap").UsedRange.Rows.Count + 1)

  Továbbá a Destination után kettőspont is kell az = jelen kívül (értékadás).

• #41560 Delila_1 veterán Sutyi73 #41559

  Új Válasz 2019-08-13 06:14:29 #41560

  Ú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 Sutyi73 #41559 üzenetére

  Mivel a

  Range("A2:E" & ActiveSheet.UsedRange.Rows.Count).Copy Destination = _ wb.Worksheets("Célmunkalap").Range("A" & wb.Worksheets("Célmunkalap").UsedRange.Rows.Count + 1)

  sorral már megtörtént a másolás, nincs szükség a

  Windows("Órák.xlsm").Activate
Range("A" & wb.Worksheets("Célmunkalap").UsedRange.Rows.Count + 1).Select
ActiveSheet.Paste

  sorokra. Nem programkódként másoltad ide a makrót, így nem látom, hogy a felső utasítás 1 sorban van-e. A "Destination =" után egy szóközzel alsó kötőjelet tettem be az eredeti mögé.

  A mappából megnyitott füzet bezárását így add meg

  Workbooks(fileName).Close False

  akkor nem kérdez rá a mentésre.

• #41534 Louro őstag Sutyi73 #41533

  Új Válasz 2019-08-08 15:16:23 #41534

  Ú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

  

  Louro

  őstag

  válasz Sutyi73 #41533 üzenetére

  Nem teszteltem, de valahogy így
  A célmunkalapra a fejlécet azért átmásolnám első körben és utána futtatnám.

  Sub GetInfo()
  Dim wb As Workbook
  Set wb = Activeworkbook
  Path = "C:\Temp\"
  Filename = Dir(Path & "*.xlsx")
  Do While Filename <> ""
  Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
  Range("A2:G"&Activesheet.Usedrange.Rows.Count).Copy _
  Destination:=wb.Worksheets("Célmunkalap").Range("A" & wb.Worksheets("Célmunkalap").Usedrange.Rows.Count + 1)
  Workbooks(Filename).Close
  Filename = Dir()
  Loop
  End Sub

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