Akkor egyelőre maradok ennél! Ahhoz elég kezdő vagyok
A fülek neve lehet ugye a szakemberek neve is, és akkor is a képlet is
változik?
PL.: =SZUM('Jutka1:Zsófi'!D5)

Ha pl. az első fülön Jutka tölt az utolsón meg Zsófi.

[ Szerkesztve ]

Sziasztok!

Egy elég összetett kérdésem lenne.

Szóval. Van egy excel fájlom, aminek bizonyos cellái csatolva vannak más excel fájlokhoz, tehát minden megnyitásnál rákérdez, hogy frissítse-e.

Gyakorlatilag foci tabellákról van szó. Az egyik munkafüzetben vezetem a meccseket, ebben pedig csak a tabellát frissíti. Ez működik is nincs vele gond.

Viszont szeretnék egy olyan makrót létrehozni, ami a csapatok címereit (egy képet) beilleszti abba a cellába, amiben a csapatok nevei vannak, jobbra igazítva, ugyanakkora méretben, mint maga a cella magassága.

A fő probléma az, hogy minden indulásnál valahogy törölni kéne a meglevő képeket, mert ugye, ha változik a tabella, akkor változik a csapatok helye.

Ezt a változást kéne valahogy követni. Tehát, ha rányomok a frissítésre induláskor, akkor ő ne csak az írásokat frissítse, hanem utána rögtön a képeket is.

Nem tudom mennyire érthető ez így. Ha én elolvasnám ezt, nem biztos, hogy érteném, mit is akarok, de remélem valaki érteni fogja, és esetleg tud majd segíteni...

A cellák, amikben a csapatok vannak: B421, L4:L23, V4:V23, AF4:AF23

A válaszokat előre is köszönöm!

Megoldható, ha a jelzett cellák (B4:B23, L4:L23, AF4:AF23) a képek nevével azonosak, csak a kiterjesztést kell hozzájuk venni. Ezt kell átírnod a csillagozott sorokban, ha nem jpg a kiterjesztés, na meg az útvonalat.

Sub Kepek()
Dim Kepneve As String, utvonal As String, sor As Long

utvonal = "D:\Mappa\Almappa\" '***

For sor = 4 To 23
Kepneve = Cells(sor, "B") & ".jpg" '*****
With ActiveSheet.Pictures.Insert(utvonal & Kepneve)
.Top = Rows(sor).Top
.Height = Rows(sor).Height
.Left = Columns(2).Left + Columns(2).Width - .Width
End With

Kepneve = Cells(sor, "L") & ".jpg" '*****
With ActiveSheet.Pictures.Insert(utvonal & Kepneve)
.Top = Rows(sor).Top
.Height = Rows(sor).Height
.Left = Columns(12).Left + Columns(12).Width - .Width
End With

Kepneve = Cells(sor, "AF") & ".jpg" '*****
With ActiveSheet.Pictures.Insert(utvonal & Kepneve)
.Top = Rows(sor).Top
.Height = Rows(sor).Height
.Left = Columns(32).Left + Columns(32).Width - .Width
End With
Next
End Sub

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

Sziasztok,

Két külön excel táblából szeretnék másolni és beilleszteni.
Az a problémám, hogy az egyik file napi szinten új nevet kap (aznapi dátum), a másik állandó (Terv.xlsx).
Megoldható, hogy az elérési utat ne kelljen a makróban naponta frissítenem (Terv_HWP_2016_03_11.xlsm) ?

Segítségeteket Köszönöm

Application.ScreenUpdating = False
Workbooks.Open Filename:="G:\Daten\Terv.xlsx"
Windows("Terv_HWP_2016_03_11.xlsm").Activate
Range("A4 : C25").Select
Selection.Copy
Windows("Terv.xlsx").Activate
Range("A1 : C25").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Terv_HWP_2016_03_11.xlsm").Activate

[ Szerkesztve ]

Szia!

A fájlnevet megadhatod így:
Windows("Terv_HWP_" & Format(date,"yyyy_mm_dd" & ".xlsm").Activate

De magát a másolást is egyszerűbben tudod megtenni:
Workbooks("Terv.xlsx").Sheets("Terv").Range("A1:C25").Value=Workbooks("Terv_HWP_" & Format(Date,"yyyy_mm_dd" & ".xlsm").Sheets("Tény").Range("A1:C25").Value

Mivel a Terv nevű fájlt utoljára nyitod meg, ha csak egy munkalapja van, akkor elég az
Activesheet.Range("A1:C25").Value=Workbooks("Terv_HWP_" & Format(Date,"yyyy_mm_dd" & ".xlsm").Range("A1:C25").Value

tekintettel arra, hogy megnyitás után az lesz az aktív munkalap.

Nem kell ide-oda ugrálni a két munkafüzet között. Figyelj rá, hogy a kódban a workbooks - worksheets forma van és nem a windows!

Üdv.

[ Szerkesztve ]

Sziasztok,

Egy kis segítséget szeretnék kérni (Excel 2013)
Van egy táblázatom, ahol az "A" oszlopban a munkavállalók nevei vannak, a "B" oszlopban a hozzájuk tartozó törzsszám, "E" oszlopban pedig a költséghely, majd a további oszlopokban különböző adatok, amik a havi teljesítményükhöz kapcsolódnak. A nevek ABC sorrendben vannak, de nekem a költséghely alapján kellene őket sorba rendezni. Majd ha megvan a sorba rendezés, utána az egy költséghelyhez tartozó adatokat oszloponként összegeznem kellene úgy, hogy az adott ktghelyhez tartozó összegző sor, mindig az adott ktghelyhez tartozó "utolsó" ember sorja alatt van.

Név ... ... Ktghely ... Teljesítmény1 .... Teljesitmény2
AB ... ... 0300 .... 10 .... 40
CD ... ... 0300 .... 30 .... 30
2 fő .... ... 0300 .... 40 .... 70
FG ..... .... 0400 .... 10 .... 20
....

A ktghelyhez tartozó létszámok minden hónapban változnak.
Megoldható ez valahogy képletezéssel vagy makróval ?

Köszi előre is.

Jelöld ki az E oszlopot, majd simán nyomj egy sorba rendezést, bővítsd az adattartományt. Másik variáció, hogy a legfelső sort kijelölöd és beállítasz egy szűrőt, majd E oszlop szűrőjében rendezed sorba.

Ez után E oszlopot kijelölve használd a részösszeg funkciót. A felugró ablakban beállítod, hogy költséghely szerint rendezzen és melyik oszlopot adja össze. Bal oldalt megjeleni 3 "+" jelecske egészen kint a munkalap széplen, fent a felső sarokban. Ott tudod kibontani/bezárni az adott szinteket.

üdv, föccer

Építésztechnikus. Építőmérnök.

Szia!

Nagyon szépen köszönöm ismét a segítségedet. Tökéletesen működik a dolog.

Esetleg még annyiban tudsz segíteni nekem kérlek, hogyha a kép így túl nagy, akkor ahhoz mit kéne átírnom hogy kicsit kisebbé tegyem őket?

Válaszod előre is köszönöm!

Valószínűleg jó magasak a sorok, ahova a képeket be akarod illeszteni. A sormagassághoz igazítottam a képek magasságát.

A makró lefutása után az egyik képet állítsd be a kívánt méretre, majd nézd meg, mennyi a magassága.
A 3 With–End With között a

.Height = Rows(sor).Height

sorban az egyenlőségjel jobb oldalára ezt az értéket írd be a mostani helyett.

Érdemes még a makró elejére beírni a következő sort:

ActiveSheet.DrawingObjects.Select

ez törli az előző képeket.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Órrriási hiba:

ActiveSheet.DrawingObjects.Select helyett ActiveSheet.DrawingObjects.Delete kell.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Szia!

Szerintem ha már megvannak a képek, akkor nem kell minden futáskor törölni azokat, elég a megfelelő helyre pozicionálni - és nem kell ismételten beilleszteni.

Üdv.

A csatolt képen látod az I2 cella képletét. Ezt másolhatod jobbra, és le.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Az nagyobb munka.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Szia,

Megnyitom a Terv_HWP_2016_03_15.xlsm file-t
Rányomok a gombra, terv.xlsx megnyílik majd

Hibaüzenet:
Run-time error '9':
Subscript out of range

Application.ScreenUpdating = False
Workbooks.Open Filename:="G:\Daten\Terv.xlsx"
Windows("Terv_HWP_" & Format(Date, "yyyy_mm_dd" & ".xlsm")).Activate

Pont úgy működik, ahogy akartam. Még egyszer nagyon szépen köszönöm!

Örülök neki, szívesen.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Szia!

Szerintem ne a Windows hanem a Workbooks objektumot használd lsz:
Workbooks("Terv_HWP_" & Format(Date, "yyyy_mm_dd" & ".xlsm")).Activate , mivel az ablak neve nem biztos, hogy ugyanaz...
De írtam a hozzászólásban, hogy nem kell aktiválni a korábban megnyitott fájlt. Ide írom ismét a képletet, egy picit javítani kellett rajta:
Activesheet.Range("A1:C25").Value=Workbooks("Terv_HWP_" & Format(Date,"yyyy_mm_dd" & ".xlsm").Sheets(1).Range("A1:C25").Value

A Sheets(1) helyett azt a munkalapot írd be, ahol az adatok találhatóak.

Üdv.

Sziasztok!

Egy kis segítséget kérnék tőletek. Adott egy kész táblázat ami a nyomtatási nézetben a lap szélén van. Hogyan lehet az egészet egy az egyben mozgatni?

Oldalbeállításnál tudsz a margókon növelni/csökkenteni, vagy oldal közepére igazítani.

üdv, föccer

Építésztechnikus. Építőmérnök.

Szia,

Ugyanaz a hibaüzenet

Application.ScreenUpdating = False
Workbooks.Open Filename:="G:\Daten\Terv.xlsx"
ActiveSheet.Range("A1 : C25").Value = Workbooks("Terv_HWP_" & Format(Date, "yyyy_mm_dd" & ".xlsm")).terv.Range("A1 : C25").Value

Megpróbáltam beírni simán a file nevét

Application.ScreenUpdating = False
Workbooks.Open Filename:="G:\Daten\Terv.xlsx"
ActiveSheet.Range("A1 : C25").Value = Workbooks("Terv_HWP_2016_03_15.xlsm").terv.Range("A1 : C25").Value

"object doesn't support this property or method"

[ Szerkesztve ]

Szia!

Így nem próbáltad még?
ActiveSheet.Range("A1 : C25").Value = Workbooks("Terv_HWP_" & Format(Date, "yyyy_mm_dd" & ".xlsm")).Sheets("terv").Range("A1 : C25").Value

Üdv.

[ Szerkesztve ]

Föccer és Delila_1 köszönöm mindkettőtöknek.
Az a gond, hogy a költséghelyek száma száz felett van, valamint a végeredménynek kötött formátumban kell lenni. Ezért akarok időt spórolni azzal, hogy havonta ne manuálisan kelljen elkészíteni a kért kimutatást, hanem képletezve.
Egyik fülre bemásolnám a kinyert adatokat :

Majd egy másik fülön ilyen eredmény kellene:

Gondom az, hogy az adott költséghelyhez tartozó létszám folyamatosan változik, valamint nagyjából munkavállalónkén 40-50 különböző típusú adat van, amit összegezni kell. A változó létszám miatt az összegző sor mindig máshova kerül és ezt nem tudom megoldani képlettel.
Valamilyen ötlet ?

Köszi előre is.

Részösszeg pontosan erre való. Be lehet állítani, hogy több melyik oszloppal, milyen műveletet hajtson végre.

üdv, föccer

Építésztechnikus. Építőmérnök.

Jogos. Elsőre valamit elrontottam, de most már tökéletes.

Köszönöm a segítséget.

Úgy sem jó.

Maradok a sima másolás és beillesztésnél.
Az aktív mindig a makrót használó lesz, a file nevet meg elfelejtem
Simán átmásolom az adatokat a terv.xlsx-be majd bezárom.
Így újra a makrót használó lesz aktív.

Segítségedet Köszönöm

Sziasztok!

Egy olyan kérdésem lenne, hogy az megoldható-e, hogy egy link megnyitásánál ne az oldal tetejére rakjon, mint normál esetben, hanem a megnyitott oldal egy tetszőleges pontjához, amit persze én állítok be?

A válaszokat előre is köszönöm!

Sziasztok!

Van egy nagy adattábla. (dátum, szállító/vevő neve, áfa-kód, nettó, áfa, bruttó, iktatószám/számlaszám, stb...)
Ezeket az adatokat szeretném átmenteni áfa-kódonként másik táblákba (tehát minden áfa-kódhoz tartozó sornak más táblában a helye)

kvázi áfa-analitikát kellene csinálnom, mert olyan primitív programmal dolgozom, hogy nem képes még ezt sem létrehozni, csak egy ömlesztett excel táblát húz ki... (és a cég nem fizet azért szakértőknek, hogy ez megváltozzon...)

Tudom, hogy szűrőkkel csak az adott sorok látszódnak, jelenleg így másolgatom ki az adatokat, de kezdek belefáradni, így szeretnék egy gyorsabb módszert... Van ilyen?

Előre is köszönöm a segítséget!

Siemens C35-> Siemens MT50-> Motorola E398-> SE K750i-> Nokia 6220 Classic-> ZTE Blade-> SE Xperia Mini Pro-> Samsung Galaxy S Advance -> Sony Xperia SP -> Huawei P8 Lite -> Xiaomi Redmi Note 4 -> Xiaomi Redmi Note 6 Pro ->Xiaomi Redmi Note 9 -> Xiaomi Redmi Note 11

Az eredeti, ömlesztett adatokat tartalmazó lapnak az Eredeti nevet adtam. A csillagokkal jelzett sorban írd át a nevét.

A makró végig megy az Eredeti lap sorain. Megnézi, van-e a sorban szereplő ÁFA-kód nevű lap. Ha nincs, létrehozza. Az aktuális sor adatait átmásolja a megfelelő lapra.

Sub Szortirozas()
Dim sor As Long, usor As Long, kod, lapnev

With Sheets("Eredeti") '*****
sor = 2
Do While .Cells(sor, "C") <> ""
kod = .Cells(sor, "C") & ""
On Error Resume Next
Set lapnev = Sheets(kod)
If Err.Number <> 0 Then
Sheets.Add Before:=Sheets(Sheets.Count)
ActiveSheet.Name = kod
.Rows(1).Copy Sheets(kod).Range("A1")
.Rows(sor).Copy Sheets(kod).Range("A2")
On Error GoTo 0
Else
usor = Application.WorksheetFunction.CountA(Sheets(kod).Columns(3)) + 1
.Rows(sor).Copy Sheets(kod).Range("A" & usor)
End If

sor = sor + 1
Loop
End With
Beep
MsgBox "Kész van.", vbInformation
End Sub

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Szia!

Az Adatok - Speciális szűrővel egyből a másik helyre másolhatod a szűrt adatokat. Az a fontos, hogy arról a munkalapról indítsd, ahová másolni szeretnéd az adatokat. A párbeszéd ablakot értelemszerűen töltsd ki.
Ha makrórögzítővel felveszed, akkor csak a szűrőtartomány megfelelő értékeit kell változtanod, mielőtt elindítod a makrót.

Üdv.

Szia!

Szerintem egyszerűbb és gyorsabb lenne az AdvancedFilter alkalmazása.

Üdv.

Nem biztos, hogy van minden áfa-kódnak megfelelő lap a füzetben. Azért írtam rá makrót, hogy szükség esetén a hiányzó lapokat létrehozza.

Szerk.:
A makró elején törölni lehetne a második laptól az utolsóig az előző kigyűjtés adatait.

A specszűréshez minden lapon kritérium tartományt és címsort kellene előre felvenni.

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

Szia!

"A specszűréshez minden lapon kritérium tartományt és címsort kellene előre felvenni."
Ezt egyáltalán nem kell megcsinálni. Elég, ha makróval a "szétbontandó" munkalapon csinálunk egy kritérium tartományt. Kiszedjük az egyedi ÁFA kulcsokat, azokat egyesével beírjuk (ciklusban) a kritériumtartomány megfelelő helyére. Ha kell, adunk hozzá új lapot, majd erre a lapra leszűrjük az adatokat.
Ha már minden ÁFA kulcshoz van munkalapunk, akkor a szűrést lehet csinálni végig az eredeti munkalapon maradva.

Üdv.

Igen, ez egy másik felfogása a feladatnak. Megírtam ezt is. A futási idők különbsége csak sok sor esetén mérhető, én mindössze 20 sorral dolgoztam.

Nem tudjuk, hány oszlop van az Eredeti lapon. A makróban az A:K tartományt vettem alapul, amit két helyen kell módosítani, a csillagokkal jelzett sorokban.

Szerk.: az A:K tartományra történő hivatkozást is át lehetne állítani a makróban, de azt már nem írom meg.

Sub Kulcsok()
Dim usor As Long, usor1 As Long, lap As String, sor As Long, lapnev

With Sheets("Eredeti")
.Range("AA:AN").ClearContents
.Range("AA1") = .Range("C1")
.Range("AB1") = .Range("AA1")
.Range("A1:K1").Copy .Range("AD1") '*****

usor = .Range("C" & Rows.Count).End(xlUp).Row
.Range("C1:C" & usor).AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=.Range("AA1"), Unique:=True

usor1 = .Range("AA" & Rows.Count).End(xlUp).Row

For sor = 2 To usor1
.Cells(2, "AB") = .Cells(sor, "AA")

'*****
.Range("A1:K" & usor).AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=.Range("AB1:AB2"), _
CopyToRange:=.Range("AD1:AN1"), Unique:=False

lap = .Range("AB2") & ""

On Error Resume Next
Set lapnev = Sheets(lap)
If Err.Number <> 0 Then
Sheets.Add Before:=Sheets(Sheets.Count)
ActiveSheet.Name = lap
On Error GoTo 0
Else
Sheets(lap).Cells.ClearContents
End If

.Range("AD1").CurrentRegion.Copy Sheets(lap).Range("A1")
Next
End With

Beep
MsgBox "Kész van.", vbInformation
End Sub

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

Szia!

Nekem ez "sikeredett" mostanra:
Sub szuroget()
Dim sh1 As Worksheet, sh2 As Worksheet, usor As Integer, xx As Integer, szuro As Range, cel As Range, szurni As Range
Set sh1 = ActiveSheet
Set szuro = sh1.Range("BB1:BB2")
Set szurni = sh1.Cells(1).CurrentRegion
szuro.Clear
szuro.Cells(1, 0).Clear
szurni.Columns("Q").AdvancedFilter Action:=xlFilterCopy, criteriarange:=sh1.Range("Q1"), copytorange:=szuro.Cells(1, 0), unique:=True
szuro.Cells(1).Value = szuro.Cells(1, 0).Value
usor = szuro.Cells(1, 0).End(xlDown).Row
For xx = 2 To usor
szuro.Cells(2).Value = szuro.Cells(xx, 0).Value
On Error Resume Next
Set sh2 = Sheets(szuro.Cells(2).Value)
If Err <> 0 Then
Set sh2 = Sheets.Add(after:=Sheets(Sheets.Count))
sh2.Name = szuro.Cells(2).Value
Else
sh2.UsedRange.Clear
End If
Set cel = sh2.Range("A1")
szurni.AdvancedFilter Action:=xlFilterCopy, criteriarange:=szuro, copytorange:=cel, unique:=False
Next
sh1.Activate
End Sub

Üdv.

Helyes! Azt hittem, kiadod a feladatot, és lelépsz.

Ez vicc volt.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

szép napot !
egy kis segítséget szeretnék az excel 2016 Pivot-hoz.

nagyon az elején tartok a megismerésében. amit látok a youtube videokban az ok,
de nekem pont más bajom van.
feltöltöm képben a munkalapot és a kimutatást.
a kérdésem az lenne, mivel ugyan olyan nevű partnerből több van, ezért csak a partnernév
nem elég, de akkor hogy tudom a partnerkóddal egy szintbe hozni a kimutatást ?
kell-e külön mezőt felvenni a táblába ( ami a név&kód) vagy megoldható másképp ?
tudok-e definiálni virtuális értékmezőket, ami mondjuk a hó + év értékek különbségét adja meg és nem
az összegüket ? csak olyan oszlopokkal lehet dolgozni, ami a táblában is meg van, vagy kreálható is képlet
oszlop ? és ha igen, akkor hogyan tudom változtatni a helyét ?
előre is köszönöm a segítséget.

[ Szerkesztve ]

Mindkettőtöknek nagyon köszönöm a segítséget! Le fogom tesztelni mindkét megoldást, utána jelentkezem

Siemens C35-> Siemens MT50-> Motorola E398-> SE K750i-> Nokia 6220 Classic-> ZTE Blade-> SE Xperia Mini Pro-> Samsung Galaxy S Advance -> Sony Xperia SP -> Huawei P8 Lite -> Xiaomi Redmi Note 4 -> Xiaomi Redmi Note 6 Pro ->Xiaomi Redmi Note 9 -> Xiaomi Redmi Note 11

Sziasztok!

Egy olyan kérdésem lenne, hogy vízszintesen szeretnék cellát egyesíteni (vagy középre igazítani a tartományban) úgy, hogy az első sor minden harmadik oszlopát szeretném egyesíteni, majd az ebben egyesített tartományban lévő stringre szeretnék hivatkozni az alatta lévő cellákban. De ha kitöltéssel/másolással húzom a képletet akkor nyílván elcsúszik a dolog, esztétikailag meg persze szeretnék élni a cellaegyesítés lehetőségével.

Tehát az a kérdésem, hogy létezik -e olyan módszer amellyel cellát egyesítek és az egyesített tartomány minden cellájában megjelenik ugyanaz a szöveg, de úgy hogy megjelenésben egy szövegként jelenik meg mondjuk a tartomány közepén? (remélem érthető voltam és köszönöm a választ!)

Ha egyesítessz 2 cellát, akkor csak 1 cella tartalom lehet, lévén 1 cella lesz, nem kettő. Bár nem értem, hogy pontosan mit szeretnél... Ha az a probléma, hogy a "húzott" képlet másolásban automatikusan módosulnak a cellahivatkozások, akkor használd a $ jelet.

üdv, föccer

Építésztechnikus. Építőmérnök.

Mellékelek egy mintamunkafüzetet, ami alapján szerintem már érthetőbb a dolog.

Szóval, hogy ha helyesen beírom a kívánt képletet a B3-as cellába és húzom jobbra az absz. hiv. miatt nyílván maradna az eredeti a 2. munkalapon lévő tartalom, ha meg rel. hiv.-t használok akkor szintén hibás eredményt kapok. Célom az, hogy úgy töltsem ki a cellákat, hogy ne kelljen utólag mindig "hozzáigazítanom", ha pl. kitöltést használok. (sárga színű cellák a jó eredmények a pirosak pedig egy példa a rossz megoldásra)

Köszi segítséget/választ!

[ Szerkesztve ]

Sziasztok!

Van Excel 2010-ben arra mód, hogy a feltételes formázás bizonyos időközönként automatikusan frissüljön?

Van egy Excel táblám, amiben az egyik oszlopban időpontok vannak megadva, pl. 2016.04.09 12:00.
Van erre az oszlopra egy feltételes formázás, ami azt nézi, hogy az érték kisebb-e, mint a MOST() függvény kimenete. Mivel ez csak megnyitáskor frissül, ezért pl. a nap folyamán lejáró időpontokat nem formázza át.

Erre van valamilyen megoldás, hogy mondjuk 10 percenként nézze az Excel, hogy hoppá, valamit át kell formázni?

Köszönöm!

[ Szerkesztve ]

Szia!

Ha nyomsz neki egy újraszámolást, akkor "észreveszi", hogy már elmúlt az időpont.

Makróval pedig pl. a Worksheets(1).Calculate sor végzi ugyanezt, amit betehetsz pl. a munkalap Selection_Change eseményébe, illetve lehet időzítést is csinálni az Application.Ontime metódus segítségével.
Emlékeim szerint volt már ilyen jellegű kérdés itt a fórumon is megoldva

Üdv.

Sziasztok!
Hogy tudok szürt táblázatnál olyat megcsinálni, hogyha leszűröm akkor az első oszlopba tudjak már sorszámozni a mellêkelt kêp alapján.

Szia!

Makróval végigmész az oszlopon, amelyik cellánál a sor nincs elrejtve, beírod a következő sorszámot.
Pl.
sorsz=1
for xx=2 to 10
if not cells(xx,1).entirerow.hidden then
cells(xx,1).value=sorsz
sorsz=sorsz+1
endif
next

Üdv.

van egy ilyen excel diagramom. Link

hogy tudnam azt megcsinalni hogy janurban a ket oszlop (kek es zold alja) egymas mellett legyen pontosan? ugyanezt februarban? tehat pl. van most terkoz 5 az legyen0 viszont jan es feb kozott legyen(maradjon) terkoz

[ Szerkesztve ]

eladó dolgok:mondd az árát és vidd http://hardverapro.hu/tag/dellfanboy#aprohirdetesei

Sziasztok!

Volna egy olyan gondom, aminek hirtelen nem tudom, hogy álljak neki

- adott két raktárhely ahol azonos termékek különböző darabszámmal vannak jelen.
- az üzletek a készletet szummázva látják, ez alapján rendelnek.
- mennyiségi túlrendelés esetén forgalmi részarány alapján kerül leosztásra a rendelt mennyiség.

amit meg kellene valósítani a fentiek után:
- szét kellene szortírozni a leosztott mennyiséget oly módon, hogy első körben a második raktárhelyen lévő (kevesebb) mennyiség fogyjon, majd ha lefogyott ezen raktárhely mennyisége, akkor az elsőből kapjanak terméket. És persze a teljes leosztott mennyiséget ki kell szolgálni.

pl:
RH1: alma (26 db)
RH2: alma (3 db)

B1 rendelt: 5 db
B2 rendelt: 2 db

leosztásban:
B1: 5 db
B2: 2 db

Kiszolgálás:
B1: 3 db (RH2)
B1: 2 db (RH1)
B2: 2 db (RH1)

készítettem egy alap infos táblát hátha segít.

Lenne rá ötlet, javaslat?

Köszi előre is!

"Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)

Sziasztok!

Valahogy meg lehet azt csinálni, hogy amikor elmentem az excel táblámat, akkor ő csináljon automatikusan egy .html file-t is? Tehát gyakorlatilag mentés másként--->weblap, viszont az nagyon fontos lenne, hogy csak azt a részt csinálja meg html-be, ami ki van jelölve. Jah és az lenne a legjobb, ha ezt a html file-t tudnám oda menteni, ahová akarom, nem pedig az excel mellé. Nem tudom, hogy ez megoldható-e, de gondoltam megkérdezem.

A válaszokat előre is köszönöm!

Köszi de ezt hogyan kell makroba rakni?

Sziasztok!

Tudja valaki esetleg, hogy lehetséges-e Excel online munkafüzetben hivatkozni egy másik Excel online munkafüzetre?

Köszi.