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

• #3189 Amiens tag simongnxs #3188

  Új Válasz 2024-03-11 09:27:45 #3189

  Ú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

  

  Amiens

  tag

  válasz simongnxs #3188 üzenetére

  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!

• #2841 Amiens tag vilag #2839

  Új Válasz 2017-05-24 11:43:55 #2841

  Ú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

  

  Amiens

  tag

  válasz vilag #2839 üzenetére

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

• #2838 Amiens tag vilag #2837

  Új Válasz 2017-05-24 09:39:06 #2838

  Ú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

  

  Amiens

  tag

  válasz vilag #2837 üzenetére

  Sima Részösszeg()-gel is megpróbálhatod.

  =RÉSZÖSSZEG(3;A2:A11)

• #2731 Amiens tag dWan #2730

  Új Válasz 2016-10-21 09:59:42 #2731

  Ú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

  

  Amiens

  tag

  válasz dWan #2730 üzenetére

  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

• #2728 Amiens tag Delila_1 #2727

  Új Válasz 2016-08-29 10:36:11 #2728

  Ú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

  

  Amiens

  tag

  válasz Delila_1 #2727 üzenetére

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

• #2725 Amiens tag Delila_1 #2724

  Új Válasz 2016-08-29 06:45:04 #2725

  Ú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

  

  Amiens

  tag

  válasz Delila_1 #2724 üzenetére

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

• #2723 Amiens tag

  Új Válasz 2016-08-28 23:00:10 #2723

  Ú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

  

  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...

• #2722 Amiens tag sztanozs #2721

  Új Válasz 2016-08-02 13:04:34 #2722

  Ú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

  

  Amiens

  tag

  válasz sztanozs #2721 üzenetére

  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...

• #2720 Amiens tag sztanozs #2719

  Új Válasz 2016-08-01 15:09:19 #2720

  Ú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

  

  Amiens

  tag

  válasz sztanozs #2719 üzenetére

  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), "<br>") & "<BR>"
.HTMLBody = .HTMLBody & Replace(Sheets(kinek).Cells(sor, 5), Chr(10), "<br>") & "<BR>"
.HTMLBody = .HTMLBody & Replace(Sheets("Alap").Range("b3"), Chr(10), "<br>") & "<BR>"

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

• #2718 Amiens tag Bobrooney #2717

  Új Válasz 2016-08-01 14:02:26 #2718

  Ú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

  

  Amiens

  tag

  válasz Bobrooney #2717 üzenetére

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

• #2716 Amiens tag

  Új Válasz 2016-08-01 12:42:11 #2716

  Ú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

  

  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

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