Keresés: - Visual Basic - PROHARDVER! Hozzászólások

Legfrissebb anyagok

PROHARDVER! témák

Mobilarena témák

IT café témák

GAMEPOD témák

LOGOUT témák

Keresés

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

Amiens tag

2024-03-11 09:27:45 #3189

Új Válasz
Ú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

Amiens

tag

válasz simongnxs üzenetére #3188

Szia!

Az adattartományt formázd táblázatba, gyorsabb és egyszerűbb; utána automatikus a grafikon vizualizációja is!
Jobban jársz!

iPhone 11 Pro / LG G6 / Lumia 950 / Nokia E72
Amiens tag

2017-05-24 11:43:55 #2841

Új Válasz
Ú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

Amiens

tag

válasz vilag üzenetére #2839

Akkor még egyszerűbb a dolgunk:
szurt = Application.WorksheetFunction.Subtotal(3, Range("A2:A10"))

iPhone 11 Pro / LG G6 / Lumia 950 / Nokia E72
Amiens tag

2017-05-24 09:39:06 #2838

Új Válasz
Ú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

Amiens

tag

válasz vilag üzenetére #2837

Sima Részösszeg()-gel is megpróbálhatod.
=RÉSZÖSSZEG(3;A2:A11)

iPhone 11 Pro / LG G6 / Lumia 950 / Nokia E72
Amiens tag

2016-10-21 09:59:42 #2731

Új Válasz
Ú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

Amiens

tag

válasz dWan üzenetére #2730

Valami ilyesmire gondoltál?
Range("A10").Value = Application.Sum(Range(Cells(1, 1), Cells(9, 1))) Range("A11") = Range("A1:A9").Cells.SpecialCells(xlCellTypeConstants).Count

iPhone 11 Pro / LG G6 / Lumia 950 / Nokia E72
Amiens tag

2016-08-29 10:36:11 #2728

Új Válasz
Ú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

Amiens

tag

válasz Delila_1 üzenetére #2727

Eszméletlen, hogy mennyi időt és energiát lehet megspórolni, egy ilyen egyszerű megoldásával!
Ezer köszönet!

iPhone 11 Pro / LG G6 / Lumia 950 / Nokia E72
Amiens tag

2016-08-29 06:45:04 #2725

Új Válasz
Ú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

Amiens

tag

válasz Delila_1 üzenetére #2724

Szuper! Köszönöm szépen!
Ezzel indítom a reggeli melót...

iPhone 11 Pro / LG G6 / Lumia 950 / Nokia E72
Amiens tag

2016-08-28 23:00:10 #2723

Új Válasz
Ú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

Amiens

tag

Újabb felvetés:
Egy munkalapon szeretnék keresni adott oszlopra és sorra, így a keresett érték a két tömb csomópontja lenne...

iPhone 11 Pro / LG G6 / Lumia 950 / Nokia E72
Amiens tag

2016-08-02 13:04:34 #2722

Új Válasz
Ú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

Amiens

tag

válasz sztanozs üzenetére #2721

Köszönöm szépen!
Tökéletesen működik! Mivel van meghatalmazásom a másik e-mail cím használatához, így patentul beírtam ezt a kódrészletet:
If Sheets("Alap").Range("D1") = "Másik cím <másvalaki@valaki.hu>" Then .SentOnBehalfOfName = Sheets("Alap").Range("D1") End If
Mindezt betettem egy cellalistába, és voálá, annyit és azt teszek bele, akit akarok...

iPhone 11 Pro / LG G6 / Lumia 950 / Nokia E72
Amiens tag

2016-08-01 15:09:19 #2720

Új Válasz
Ú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

Amiens

tag

válasz sztanozs üzenetére #2719

Parancsoljatok!
Sub level() sor = 2 kinek = Sheets("Alap").Range("b6") Set OutApp = CreateObject("Outlook.Application") While Not IsEmpty(Sheets(kinek).Cells(sor, 2)) If Sheets(kinek).Cells(sor, 1) = "Igen" And IsEmpty(Sheets(kinek).Cells(sor, 6)) Then keres = Sheets(kinek).Cells(sor, 2) Set OutMail = OutApp.CreateItem(0) With OutMail If Sheets("Alap").Range("b8") = "Nem" Then .To = Sheets(kinek).Cells(sor, 3) Else .To = "valaki@valami.hu" End If If Sheets("Alap").Range("b7") = "Igen" Then .CC = Sheets(kinek).Cells(sor, 4) End If .Subject = Sheets("Alap").Range("b1") & "-" & Sheets(kinek).Cells(sor, 2) .HTMLBody = "" .HTMLBody = .HTMLBody & Replace(Sheets("Alap").Range("b2"), Chr(10), " ") & " " .HTMLBody = .HTMLBody & Replace(Sheets(kinek).Cells(sor, 5), Chr(10), " ") & " " .HTMLBody = .HTMLBody & Replace(Sheets("Alap").Range("b3"), Chr(10), " ") & " " If Not IsEmpty(Sheets("Alap").Range("b4")) Then wb1 = ActiveWorkbook.Name Workbooks.Open (Workbooks(wb1).Sheets("Alap").Range("b4")) wb2 = ActiveWorkbook.Name s = 1 kuld = False While Not IsEmpty(Workbooks(wb1).Sheets("Alap").Cells(s + 9, 1)) sh = Workbooks(wb1).Sheets("Alap").Cells(s + 9, 1) Select Case Workbooks(wb1).Sheets("Alap").Cells(s + 9, 3) Case "Nem kell" Workbooks(wb2).Sheets(sh).Select Application.DisplayAlerts = False Workbooks(wb2).Sheets(sh).Delete Application.DisplayAlerts = True Case "Mind" Case "Szűrő" oszlop = Workbooks(wb1).Sheets("Alap").Cells(s + 9, 2) Workbooks(wb2).Sheets(sh).Select msor = Workbooks(wb1).Sheets("Alap").Cells(s + 9, 4) msor = msor & ":" & msor Rows(msor).Select Selection.AutoFilter ActiveSheet.Range("$A:$XB").AutoFilter Field:=oszlop, Criteria1:="<>" & keres Range(Cells(Workbooks(wb1).Sheets("Alap").Cells(s + 9, 4) + 1, 1), ActiveCell.SpecialCells(xlLastCell)).Select Selection.EntireRow.Delete [A1].Select '.pdf miatt ActiveSheet.PageSetup.Orientation = xlLandscape '.pdf miatt ActiveSheet.PageSetup.FitToPagesWide = 1 '.pdf miatt ActiveSheet.ShowAllData End Select s = s + 1 Wend Filename = ActiveWorkbook.Path & "/" & Workbooks(wb1).Sheets("Alap").Range("B5") Application.DisplayAlerts = False If Workbooks(wb1).Sheets("Alap").Range("D5") = ".pdf" Then ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Filename, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False Else ActiveWorkbook.SaveAs Filename End If ActiveWorkbook.Close SaveChanges:=False Application.DisplayAlerts = True Set myAttachments = OutMail.Attachments myAttachments.Add Filename End If .Attachments.Add Sheets("Alap").Range("C7") .Send 'or use .Display Sheets(kinek).Cells(sor, 6) = Time() End With End If sor = sor + 1 Wend End Sub

iPhone 11 Pro / LG G6 / Lumia 950 / Nokia E72
Amiens tag

2016-08-01 14:02:26 #2718

Új Válasz
Ú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

Amiens

tag

válasz Bobrooney üzenetére #2717

Szerintem ez nem segített most rajtam.
De köszönöm azért!

iPhone 11 Pro / LG G6 / Lumia 950 / Nokia E72
Amiens tag

2016-08-01 12:42:11 #2716

Új Válasz
Ú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

Amiens

tag

Sziasztok!
Excel-ben makrókkal küldöm ki az e-maileket.
Az alapértelmezett fiókcímemet szeretném megváltoztatni, hogy ne az én nevemben küldje el az e-maileket.
Mennyire lehet erre megoldást találni?
Ami

iPhone 11 Pro / LG G6 / Lumia 950 / Nokia E72