[bagab]

Sziasztok! SZUMHA függvénnyel kapcsolatban szeretnék segítséget kérni.

Egy külső forrásból (másik fájlból) összegzem az azonos cikkszámokhoz tartozó értékeket a SZUMHA segítségével.
=SZUMHA([kulsoforras.xlsx]LAP1!$A$1:$A$300;A3;[kulsoforras.xlsx]LAP1!$B$1:$B$300)

De valamiért #ÉRTÉK!-et kapok ha nincs megnyitva a kulsoforras.xlsx
(Nem megfelelő adattípusú a képletben használt érték)

Viszont, ha megnyitom a kulsoforras.xlsx-et is, akkor azonnal megjelennek a kívánt értékek, (ha újból bezárom, és frisítek egy adatot, akkor az újra #ÉRTÉK!-et kap)

Szerintem már minden külső forrásra vonatkozó védelmet letiltottam a beállításokban.

Ugyanazokra az adatokra írtam egy fkeres függvényt is... Az jól működik a forrásfájl bezárása esetén is.

Szerintetek mit csinálok rosszul?

bagab


A képet a Képfeltöltés.hu tárolja. http://www.kepfeltoltes.hu


A képet a Képfeltöltés.hu tárolja. http://www.kepfeltoltes.hu

[sakac]

Segítséget kérnék.

Adva van egy táblázat amit menteni szeretnék aktuális dátummal. Eddig eljutottam:
Sub Makró2()
'
' Makró2 Makró
'

'
Range("B2").Select
ActiveCell.FormulaR1C1 = "1111"
Range("C2").Select
ActiveWorkbook.SaveAs Filename:= _
"C:valami.xlsm", FileFormat
:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
Range("A1").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End Sub

Mit kellene csinálnom hogy megcsinálja de az eredeti táblázatot ne módosítsa?

A következő lépés pedig az lenne hogy a táblázatban szerepel mailcím. Ha a dátumos tábla mentve volt akkor az ott szereplő címekre csatolva el is küldje.

[hkpk]

Idézet: bagab - Dátum: 2013. 11. 28. 10:49

Sziasztok! SZUMHA függvénnyel kapcsolatban szeretnék segítséget kérni.

Egy külső forrásból (másik fájlból) összegzem az azonos cikkszámokhoz tartozó értékeket a SZUMHA segítségével.
=SZUMHA([kulsoforras.xlsx]LAP1!$A$1:$A$300;A3;[kulsoforras.xlsx]LAP1!$B$1:$B$300)

De valamiért #ÉRTÉK!-et kapok ha nincs megnyitva a kulsoforras.xlsx
(Nem megfelelő adattípusú a képletben használt érték)

Viszont, ha megnyitom a kulsoforras.xlsx-et is, akkor azonnal megjelennek a kívánt értékek, (ha újból bezárom, és frisítek egy adatot, akkor az újra #ÉRTÉK!-et kap)

Szerintem már minden külső forrásra vonatkozó védelmet letiltottam a beállításokban.

Ugyanazokra az adatokra írtam egy fkeres függvényt is... Az jól működik a forrásfájl bezárása esetén is.

Szerintetek mit csinálok rosszul?

bagab


A képet a Képfeltöltés.hu tárolja. http://www.kepfeltoltes.hu


A képet a Képfeltöltés.hu tárolja. http://www.kepfeltoltes.hu

Ez Excel 2000 után már nem működik így. Pontosabban, csak abban működött, mert előtte is ugyanez volt a helyzet. Vannak akik a SZORZATÖSSZEG (angolul SUMPRODUCT) függvénnyel bűvészkednek, mert az jól működik, és alkalmas a fenti feladat kiváltására.
M$ azt mondja, hogy használd így: SZUM(HA(...
http://support.micro...kb;EN-US;237188
http://support.micro...kb;EN-US;179029
http://support.micro...kb;EN-US;260415

[bagab]

Köszönöm hkpk!

[Lacy1]

Szasztok!

Szükségem lenne egy olyan segítségre hogy szeretnék, pdf-et létrehozni makró segítségével.
Ami a feladatom lenne:
Az űrlapnak a tartalmát, egy nyomtatási területen kívüli legördülő listával változtatom (nyilván több függvénynnel és összefüggéssel)
Most a PDF mentés egyesével történik (legördülő lista lenyit, mentés másként...)
Majd a PDF-ek összefűzése...

Ezt szeretném egy nyomtatás gombbal megoldani hogy ezt egyszerre egy kattintásra meg tudjam csinálni, ehhez szeretném a segítségeteket kérni!

Köszi előre is!

[littleNorbi]

Sziasztok! Adott egy excel táblázat amiben a munkások szerepelnek és több sheet-ből áll. Minden sheet-ben ugyanazok a munkások szerepelnek csak más sorrendben vannak rendezve. Szeretnék egy egységes oszlopot létrehozni, amiben az a dátum szerepel mikor a munkások elkezdtek dolgozni. Szóval ha bármelyik sheet-ben (vagy akár csak a "főben") kijavítom a dátumot akkor mindenhol megváltozzon, természetes valamilyen módon tudja, hogy az adott évszám melyik munkáshoz tartozik.Hogy lehetne ezt megoldani? Előre is köszönöm!

[Delila]

littleNorbi

Látom, minden létező fórumon feltetted a kérdést, és végül sikerült megoldani.

[Lacy1]

Sziasztok!

Közben megoldódott az előzőekben feltett kérdésem!

Viszont kérnék még egy segítséget tőletek, ha tudtok segítsetek!
A kérdésem a következő lenne:
Az alábbi makró ban ha változik az adott cella (C11:C12 egyesített cella), akkor dönt, hogy menti-e a dokumentumot vagy sem?
A nem válasz esetén szeretném, ha a modosuló cella (C11:C12 egyesített cella) értékét a modosítás előtti értékre visszaírná, erre szeretnék valami megoldást.

Köszönöm előre is a segítséget!

---------------------------------------------------------
Dim EvCella As Range
Dim Figyelmeztetes As Long
Private Sub Worksheet_Change(ByVal Target As Range)
Dim EvCella As Range

Set EvCella = Range("C11:C12")

If Not Application.Intersect(EvCella, Range(Target.Address)) _
Is Nothing Then

Figyelmeztetes = MsgBox(Prompt:=Target.Address & " cella megváltozott." + vbCrLf + "IGEN esetén mentésre kerül a dokumentum, NEM esetén nincs mentés.", Buttons:=vbYesNo)
If Figyelmeztetes = vbYes Then
MsgBox "Mentve lesz a dokumentum!"
Else
MsgBox "Nem került mentésre a dokumentum!"

End If

Else

End If

End Sub
-------------------------------------------------------

Idézet: Lacy1 - Dátum: 2014. 07. 10. 22:20

Szasztok!

Szükségem lenne egy olyan segítségre hogy szeretnék, pdf-et létrehozni makró segítségével.
Ami a feladatom lenne:
Az űrlapnak a tartalmát, egy nyomtatási területen kívüli legördülő listával változtatom (nyilván több függvénynnel és összefüggéssel)
Most a PDF mentés egyesével történik (legördülő lista lenyit, mentés másként...)
Majd a PDF-ek összefűzése...

Ezt szeretném egy nyomtatás gombbal megoldani hogy ezt egyszerre egy kattintásra meg tudjam csinálni, ehhez szeretném a segítségeteket kérni!

Köszi előre is!

[Delila]

Lacy1

A C11 tartalmát el kell tárolni ahhoz, hogy az újonnan bevitt adatot össze lehessen vetni a régivel. A makróban az X11-ben tárolom, és onnan csalom elő.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Figyelmeztetes As Integer 
    
    Application.EnableEvents = False
    
    If Target.Address = "$C$11" Then
        Figyelmeztetes = MsgBox(Prompt:=Target.Address & " cella megváltozott." _
            + vbCrLf + "IGEN esetén mentésre kerül a dokumentum, NEM esetén nincs mentés.", _
            Buttons:=vbYesNo)
        If Figyelmeztetes = vbYes Then
            MsgBox "Mentve lesz a dokumentum!"
            Range("X11") = Range("C11")
            ActiveWorkbook.Save
        Else
            MsgBox "Nem került mentésre a dokumentum!"
            Range("C11") = Range("X11")
        End If
    End If

    Application.EnableEvents = True
End Sub

[Lacy1]

Köszönöm szépen! Kipróbálom, ez nagy segítség volt...!

Idézet: Delila - Dátum: 2014. 08. 01. 12:33

Lacy1

A C11 tartalmát el kell tárolni ahhoz, hogy az újonnan bevitt adatot össze lehessen vetni a régivel. A makróban az X11-ben tárolom, és onnan csalom elő.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Figyelmeztetes As Integer 
    
    Application.EnableEvents = False
    
    If Target.Address = "$C$11" Then
        Figyelmeztetes = MsgBox(Prompt:=Target.Address & " cella megváltozott." _
            + vbCrLf + "IGEN esetén mentésre kerül a dokumentum, NEM esetén nincs mentés.", _
            Buttons:=vbYesNo)
        If Figyelmeztetes = vbYes Then
            MsgBox "Mentve lesz a dokumentum!"
            Range("X11") = Range("C11")
            ActiveWorkbook.Save
        Else
            MsgBox "Nem került mentésre a dokumentum!"
            Range("C11") = Range("X11")
        End If
    End If

    Application.EnableEvents = True
End Sub

[Delila]

Idézet: Lacy1 - Dátum: 2014. 08. 05. 10:22

Köszönöm szépen! Kipróbálom, ez nagy segítség volt...!

Ezt nem értem. Ha ezután próbálod ki, honnan tudod, hogy nagy segítség?

[Lacy1]

Hát csak onnan hogy bízom benned..., és persze jónak tűnt a dolog ránézésre, nem jutott eszembe hogy egy cellával kéna összevetni, azt hiszem nagyon fáradt voltam...
De mindenesetre jól működik a dolog, annyi átalakítással hogy átirányítottam a cellamentést egy másik rejtett munkalapra. Szóval köszönöm szépen még egyszer, jól műkszik!

De még egy kérdés lenne azért:
Hogy tudok mappátválasztani, hogy ne fix helyre mentsen. Egy darabig eljutok választok is mappát de nem oda ment
Természetesen a két makrót egy harmadikbaágyazva fogom használni

mappavalasztas
mentesmaskent

Private Sub mentesmaskent()
    Dim fajlnev As String
    Dim evszam As String
    
    fajlnev = Worksheets("Kezdőlap").Range("A1").Text
    evszam = Worksheets("Kezdőlap").Range("C11").Text
     
        ChDir "C:\"
        ActiveWorkbook.SaveAs Filename:= _
        mappa + fajlnev + "_" + evszam + ".xlsm", _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub

Ezzel nem működik...

Public Sub mappavalasztas()
    Dim mappa As String
    
    With Application.FileDialog(msoFileDialogFolderPicker)
    .Show
    mappa = .SelectedItems(1)
    End With
End Sub

Idézet: Delila - Dátum: 2014. 08. 05. 14:06

Ezt nem értem. Ha ezután próbálod ki, honnan tudod, hogy nagy segítség?

[Delila]

Lacy1

Köszönöm a bizalmat.

Sub Ment()
    Dim fldlg As FileDialog, rv
    Set fldlg = Application.FileDialog(msoFileDialogSaveAs)
    With fldlg
        .Title = "Mentés másként"
        .InitialFileName = Range("A1") & " " & Range("B1")
        If Application.Version = "12.0" Then
            .FilterIndex = 2    '2007 verzió, xlsm kiterjesztés
        ElseIf Application.Version = "14.0" Then
            .FilterIndex = 9    '2010 verzió, xlsm kiterjesztés
        ElseIf Application.Version = "11.0" Then
            .FilterIndex = 1    '2003 verzió, xls kiterjesztés
        End If
    End With
    rv = fldlg.Show
    If rv Then
        ActiveWorkbook.SaveAs fldlg.SelectedItems(fldlg.FilterIndex)
    End If
End Sub

[Lacy1]

Köszönöm a választ!

De valamiért nem működik
én arra gyanakszom, hogy Excel 2013-at használok ezzel bővítettem is de a FilterIndex számot honnan tudom?

amivel gondja van:

ActiveWorkbook.SaveAs fldlg.SelectedItems(fldlg.FilterIndex)

Idézet: Delila - Dátum: 2014. 08. 06. 15:59

Lacy1

Köszönöm a bizalmat.

Sub Ment()
    Dim fldlg As FileDialog, rv
    Set fldlg = Application.FileDialog(msoFileDialogSaveAs)
    With fldlg
        .Title = "Mentés másként"
        .InitialFileName = Range("A1") & " " & Range("B1")
        If Application.Version = "12.0" Then
            .FilterIndex = 2    '2007 verzió, xlsm kiterjesztés
        ElseIf Application.Version = "14.0" Then
            .FilterIndex = 9    '2010 verzió, xlsm kiterjesztés
        ElseIf Application.Version = "11.0" Then
            .FilterIndex = 1    '2003 verzió, xls kiterjesztés
        End If
    End With
    rv = fldlg.Show
    If rv Then
        ActiveWorkbook.SaveAs fldlg.SelectedItems(fldlg.FilterIndex)
    End If
End Sub

[Lacy1]

Közben azthiszem hogy megoldódott!

az "ActiveWorkbook.SaveAs fldlg.SelectedItems(fldlg.FilterIndex)" sort így módosítottam
ActiveWorkbook.SaveAs fldlg.SelectedItems(1)

A "SelectedItems" utáni 1-es vajon más verzióval is jó lesz?

Idézet: Lacy1 - Dátum: 2014. 08. 06. 23:02

Köszönöm a választ!

De valamiért nem működik
én arra gyanakszom, hogy Excel 2013-at használok ezzel bővítettem is de a FilterIndex számot honnan tudom?

amivel gondja van:

ActiveWorkbook.SaveAs fldlg.SelectedItems(fldlg.FilterIndex)

[Delila]

Lacy1

Örülök, hogy megoldódott. Nincs 2013-as verzióm, ki sem tudtam volna próbálni.

Észrevetted, hogy az

.InitialFileName = Range("A1") & " " & Range("B1")

sorban a fájlnév az A1 és B1 cellából jön? Egy régebben megírt makrót másoltam ide be, és nem figyeltem, hogy ezt át kell írni.

[Lacy1]

Igen köszönöm szépen, azt átírtam, de köszi hogy szóltál...

Idézet: Delila - Dátum: 2014. 08. 07. 07:26

Lacy1

Örülök, hogy megoldódott. Nincs 2013-as verzióm, ki sem tudtam volna próbálni.

Észrevetted, hogy az

.InitialFileName = Range("A1") & " " & Range("B1")

sorban a fájlnév az A1 és B1 cellából jön? Egy régebben megírt makrót másoltam ide be, és nem figyeltem, hogy ezt át kell írni.

[hkpk]

Makró kérdés:
A kijelölt cellák szumma értéke (amit az állapoton is kijelez az Excel) lekérdezhető valami objektum tulajdonságból?
Van valami olyasmi, hogy selection.cells.sum / valuetotal, vagy valami?

[hkpk]

Idézet: hkpk - Dátum: 2014. 09. 27. 20:28

Makró kérdés:
A kijelölt cellák szumma értéke (amit az állapoton is kijelez az Excel) lekérdezhető valami objektum tulajdonságból?
Van valami olyasmi, hogy selection.cells.sum / valuetotal, vagy valami?

Közben rátaláltam a

WorksheetFunction.Sum(Selection.SpecialCells(xlTypeVisible))

ill.

Application.Subtotal(109,Selection)

metódusokra

Szerkesztette: hkpk 2014. 09. 27. 20:18 -kor

[chris77]

Bizonyára nem túl bonyolult, de nekem fogalmam sincs, hogy lehet olyat megcsinálni, hogy egy már kész táblázat (többszáz sor) egyes sorait meg kéne sokszorozni. Tehát ugyanaz a tartalmú sor kerüljön mondjuk ötször az eredeti sor alá, majd a következő sor eredetije megint ötször ismétlődjőn és így tovább..

Például:
Eredeti oszlop
a
b
c
...

És amit szeretnék belőle
a
a
a
a
a
b
b
b
b
b
c
c
c
c
c
...

Szerkesztette: chris77 2014. 10. 17. 16:33 -kor