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

• Amiens tag

  #3189

  #3188 simongnxs

  2024-03-11 09:27:45

  Ú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

  #3188 simongnxs

  #3188 simongnxs

  Sziasztok,
  kérném a segítségeteket!
  Írtam egy makrót, de nem működik.
  Szeretnék egy olyan programot, ami:
  megnyitja a kijelölt grafikon adattábláját
  megnyitja az Adat1 szerkesztését
  változtatja meg az adatok értékei képletét eggyel nagyobb sorszámúra például így: =adatok_havi!$J$7:$AS$7 - ból legyen =adatok_havi!$J$8:$AS$8
  az oszlop értéke maradjon az eredeti, csak a sor értéke legyen eggyel nagyobb.
  aztán beleklikkel a diagramm címébe
  és ott is eggyel nagyobb számra cseréli a sor számát.

  Sajnos, amit a makorrögzítéssel csinálok, az nem hozza az eredményt, illetve a chatgpt 3.5 is csupa olyan kódot generál, ami nem működik.
  Tudom, hogy az Ember okosabb az AI-nél
  Segítsetek, kérlek!
  
  
  
  

  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!

• Amiens tag

  #2841

  #2839 vilag

  2017-05-24 11:43:55

  Ú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

  #2839 vilag

  #2839 vilag

  Lényeges lenne, hogy VBA-ból lehessen lekérdezni, mert a szűrési folyamat is onnan fut és ha nincs találat akkor hibára futok.

  Ezzel szeretném ezt kiküszöbölni, mert ha a szűrés eredményeként 0 találat van, akkor azt már könnyedén le tudom kezelni.

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

• Amiens tag

  #2838

  #2837 vilag

  2017-05-24 09:39:06

  Ú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

  #2837 vilag

  #2837 vilag

  Sziasztok!

  Az lenne a kérdésem, hogy lekérdezhető-e valahogyan az autofilterrel szűrt találatok eredménye?

  A bal alsó sarokban ugye kiírja, hogy "4061 rekordból 13 rekordot talált"

  Ez utóbbi számot szeretném valahogy VBA-ban lekérdezni.

  Megoldható ez?
  Googliban és VBA-ban sem találtam megoldást (ez persze nem azt jelenti, hogy nem is létezik megoldás).

  Üdv, vilag

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

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

• Amiens tag

  #2731

  #2730 dWan

  2016-10-21 09:59:42

  Ú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

  #2730 dWan

  #2730 dWan

  Sziasztok!

  Lenne egy minden bizonnyal egyszerű kérdésem, remélem valaki tud segíteni.

  Adott egy számsorozat, 9 elemből áll, nem vészes. Az alatta lévő sorba kéne a fenti sort szummázni, az adott cellának megfelelő felső soros értékkel bezárólag. Továbbá van még egy változó cella is, amely azt adja meg, hogy visszamenőleg hány cella értékét kell összeadni. Van valakinek tippje?

  Köszi

  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

• Amiens tag

  #2728

  #2727 Delila_1

  2016-08-29 10:36:11

  Ú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

  #2727 Delila_1

  #2727 Delila_1

  Mutatok egy másik módszert.
  Kijelölöd a tartományt, Képletek | Definiált nevek | Kijelölésből új, Felső sorból és Bal oszlopból bejelölve. Ez létrehozza a sorok és oszlopok tartományát a megfelelő nevekkel.

  

  A létrehozás után érdemes megnézni a Névkezelő-ben, milyen nevek jöttek létre.
  Ezután már csak a szóköz, más néven metszet operátort kell alkalmazni, ahol a sor és oszlop nevét egy szóköz köti össze, mint a képen a B10 cellában.

  

  Arra kell ügyelni, hogy a címek nem tartalmazhatnak szóközt (Nagy Anna), és nem kezdődhetnek számmal.
  Az első esetben a Kijelölésből új menüpont a szóköz helyére alsó kötjelet tesz, Ebben az esetben a B10 képlete: =Nagy_Anna február.
  Számmal kezdődő címsoroknál is alsó kötjel kerül a név elejére.

  1. hét -> _1._hét

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

• Amiens tag

  #2725

  #2724 Delila_1

  2016-08-29 06:45:04

  Ú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

  #2724 Delila_1

  #2724 Delila_1

  Az INDEX és a HOL.VAN (angolban MATCH) fügvvények kombinációjával keresheted meg az értéket.

  

  A C10 cella képlete
  =INDEX(A1:D7;HOL.VAN(A10;A:A;0);HOL.VAN(B10;1:1;0))

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

• Amiens tag

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

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

• Amiens tag

  #2722

  #2721 sztanozs

  2016-08-02 13:04:34

  Ú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

  #2721 sztanozs

  #2721 sztanozs

  Az Outlook.Application csak olyan címzett nevében hajlandó küldeni, amelyikre SendAs joggal rendelkezel: [link]
  Esetleg használhatod a SentOnBehalfOfName property-t, de szerintem látszani fog, hogy tőled jött.

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

• Amiens tag

  #2720

  #2719 sztanozs

  2016-08-01 15:09:19

  Ú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

  #2719 sztanozs

  #2719 sztanozs

  Tedd fel valahova, hogy oldottad meg. Addig nem igazán tudunk segíteni, amíg nem látjuk, mit csináltál.

  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

• Amiens tag

  #2718

  #2717 Bobrooney

  2016-08-01 14:02:26

  Ú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

  #2717 Bobrooney

  #2717 Bobrooney

  [link]

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

• Amiens tag

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

  Ú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

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