- Gaming notebook topik
- Apple notebookok
- Azonnali informatikai kérdések órája
- Melyik tápegységet vegyem?
- Bambu Lab X1/X1C, P1P-P1S és A1 mini tulajok
- AMD Ryzen 9 / 7 / 5 7***(X) "Zen 4" (AM5)
- ThinkPad (NEM IdeaPad)
- Milyen billentyűzetet vegyek?
- AMD Ryzen 9 / 7 / 5 / 3 5***(X) "Zen 3" (AM4)
- Samsung LCD és LED TV-k
Hirdetés
-
Computex 2024: a GeIL memóriái között akad olyan, ami 10 GHz fölé merészkedik
ph A vállalat portfóliójában a hétköznapi DDR5 DIMM-eken kívül vannak CUDIMM, CSODIMM, CAMM2 és LPCAMM2 formátumú újdonságok is.
-
Friss előzetesen a Monster Hunter Wilds (PC, PS5, XSX)
gp A PC-re és konzolokra szánt folytatás valamikor jövőre debütál.
-
Spyra: nagynyomású, akkus, automata vízipuska
lo Type-C port, egy töltéssel 2200 lövés, több, mint 2 kg-os súly, automata víz felszívás... Start the epic! :)
-
PROHARDVER!
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
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[ Szerkesztve ]
Mess with the best / Die like the rest
-
Delila_1
Topikgazda
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.Pastesorokra. 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.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
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).
[ 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.
-
Delila_1
Topikgazda
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.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Fferi50
őstag
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.
-
Fferi50
őstag
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.
[ Szerkesztve ]
-
Delila_1
Topikgazda
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 SubAzé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 \.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
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 SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
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 SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Mutt
aktív 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
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
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).
JOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...
Új hozzászólás Aktív témák
- Kínai, és egyéb olcsó órák topikja
- Egy kabaré volt az Edge 50 család belgrádi bemutatója
- Google Pixel 6/7/8 topik
- Garmin Instinct – küldetés teljesítve
- Gaming notebook topik
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- WoW avagy World of Warcraft -=MMORPG=-
- Villanyszerelés
- Diablo IV
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- További aktív témák...
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: Ozeki Kft.
Város: Debrecen