Kösz!!!

Lelkes, de már egy kicsit idős amatőr

Szivi!

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

Egy kis segítség kéne, lehet nem veszek valamit észre---

mért nem adja át - a fájl meg van nyitva ?

fuzet = "Járólista.xlsx"
ido1 = "2011.01"
ido2 = "2011.12"

Windows("GigaStat.xlsm").Activate - itt leáll
Sheets("param").Visible = True
Sheets("param").Cells(3, 2) = ido1
Sheets("param").Cells(3, 3) = ido2
m = 1
Application.DisplayAlerts = False

For n = 41 To 835
Sheets("param").Cells(81, 3) = n
If n > 99 Then
s = Left(n, 1)
fuzet = "Járólista" + s + ".xlsx"
End If
.
.
.

Az ösztön mindig többet ér az észnél.

Nem kell neki a kiterjesztés.

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

ugyan úgy megáll

Az ösztön mindig többet ér az észnél.

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

valaki nem tudja mivel lehetne bináris fájl-t valamilyen adatbázis formátumra hozni?

Az ösztön mindig többet ér az észnél.

Sziasztok. Egy kis segítség kellene. A Szrt. honlapjáról letölthető a kenó játék eddig kihúzott összes nyerőszáma excel táblázatban. Azt hogyan tudnám megnézni hogy egy általam kiválasztott tetszőleges 10 nyerőszámot vagy pl 1-10-ig bármennyit, hányszor húztak, vagy mennyi jött ki ebből az általam kiválasztott 10-es halmazból a legtöbbször. Remélem érthető voltam, az excelt nagyon kezdő szinten tudom kezelni, magyarul statisztikákat akarok megnézni.

Szia!
=DARABTELI(Sheet1!E2:X5347;1)
de amúgy van külön az oldalon statisztika!!
[link]

Bámulatos hol tart már a tudomány!

Az attól függ milyen az adathalmaz, de a BIN2DEC fgv próbálkozz!

Bámulatos hol tart már a tudomány!

Köszi !

Sziasztok!

Van egy oszlopom sok-sok számmal. Jellemzően 2-4 számjegy + minden esetben 2 tizedesjegy. Szóval valahogy így néz ki az oszlop.

22.04
345.06
24.50
1234.00
567.45
etc

Azt szeretném, ha ez olyan formátumban jelenne meg, hogy minden esetben 5+2 számjegyből álljon a táblázat. Szóval a fenti példa így nézne ki:

00022.04
00345.06
00024.50
01234.00
00567.45

Jó lenne makro nélkül megoldani, de végső esetben az is jöhet.

''Annyira vagyunk egészségesek, amennyire a gondolataink humánusak.''

A cellaformátum legyen 00000.00 , az Egyéni kategóriában adhatod meg.

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

a 00000.00 helyett 00000,00

Bámulatos hol tart már a tudomány!

A kérdezőnek pont a tizedes elválasztója a példái szerint.

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

Igazad van!

Bámulatos hol tart már a tudomány!

kösziii!

''Annyira vagyunk egészségesek, amennyire a gondolataink humánusak.''

Szivi.

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 Delila,
nemrégen volt téma, hogy hogyan tüntessem el a Pivot táblából a nem szükséges sorokat. Ezzel a kóddal működik is.
Sub Elrejt()
Dim sor%, usor%
usor% = Cells(Rows.Count, "A").End(xlUp).Row
sor% = usor%
For sor% = usor% To 5 Step -1
If Cells(sor%, "D") = 0 Then Rows(sor%).EntireRow.Hidden = True
Next
End Sub

Felmerült azonban egy új eset is. Ha az aktuális sor D oszlopában lévő szám negatív előjelű ez a sor meg kellene, hogy maradjon, látszódjon a Pivot-ban.

[ Szerkesztve ]

Sziasztok!

Olyan megoldást keresek, ami egy File-on belüli excel táblázatokból kikeresi az értéket,és vissza adja annak valamelyik oszlopában található értékét.

Tök ugyan úgy működne mint az fkeres, csak ez egy mappába keresi ki az excel fileokban lévő értéket, és úgy adja vissza annak az oszlopnak a sorában lévő értéket. na.

Remélem kb érthető mire gondolok.

Szia!

Meg is kell jelenítenie, hiszen csak a D=0 sorokat rejti el a makró, a negatívakat nem. Kipróbáltam, bár a makrót nézve is látszott, hogy negatív D értéknél nem rejti el a sorokat.

A kimutatásban a D oszlopban vannak az értékek? Ha nem, az

If Cells(sor%, "D") = 0 Then Rows(sor%).EntireRow.Hidden = True

sorban írd át a "D"-t a megfelelő oszlop betűjelére.

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

Igazad van
A hiba nálam van. A kódsorból én is úgy értelmeztem, hogy a negatívot sem kellene megjelenítenie.
Nem tudom, hogy miért de néha összekeveri magát a Pivot és nem jól jeleníti meg az adatokat. Újrageneráltam és most jó.

köszi

[ Szerkesztve ]

Igazad van
A hiba nálam van. A kódsorból én is úgy értelmeztem, hogy a negatívot sem kellene megjelenítenie.
Nem tudom, hogy miért de néha összekeveri magát a Pivot és nem jól jeleníti meg az adatokat. Újrageneráltam és most jó.

köszi

Elnézést a duplázásért.

Az ingyenes irodai alkalmazások képesek megnyitni az új Excel formátumokat? (xlsx) Ha igen, akkor az Open vagy a Libre Office a jobb? (Kb 99% Excel táblázatokra lenne használva, 1% Word)

VCP7-DCV, CCNA ||| Ami működik, ahhoz nem szabad hozzányúlni!

Igen képesek megnyitni de mindegyik verzió
Szvsz mindegy hogy melyiket használod
OpenOffice.org 3.0-s verziója megnyitja az xlsx vagy docx fájlokat.

[ Szerkesztve ]

Bámulatos hol tart már a tudomány!

Üdv!
A következő problémám lenne:
van egy lekérdezésem, ami képletben így néz ki:
=PIArcVal(param1;param2; param3)

a PIArcVal fv természtetesen egy automatikusan induló bővítményből jön, nem beépített fv.
Ennek az eredménye egy kétcellás "tömb", az elsőben egy dátum, a másodikban pedig egy szám az eredmény.
Nos, ha én ezt a függvényt szeretném közvetlenül egy makróban használni, hogy megkapjam mindkét eredményt, azt hogyan lehet? A VBA compile természetesen nem ismeri fel , a tömbös eredmény szerint meg szerintem nem fog menni a
myvar=PIArcVal(param1;param2; param3)
sem...

elég zavarosnak tűnik, de remélem érthető voltam

(#14575) bugizozi: Viszont csak 95% körüli a kompatibilitás, excellel és worddel is. A "bonyolultabb", objektumokat, spéci formázásokat használó doksikon akad el, a többivel viszont megbirkózik az openoffice.

[ Szerkesztve ]

[ Szerkesztve ]

Sziasztok !

Szeretnék a 14510-es kérdésemre visszatérni,amire Delila_1 megadta a tökéletes választ.
Viszont lenne ezzel kapcsolatban egy olyan kérdésem is,hogy mi van ha az A1-es cellában egy SUM függvény van amely egy összesítést végez el.Ebben az esetben mi lenne a megoldás ?

Köszöntem !

Sziasztok

Adott néhány száz Excel munkafüzet, amiben X oszlop n sor van.
Szereném az összes fájlban lévő adatot egy Munkalapra másolni, hogy ne külön fájlokban legyenek, hanem egyben tudjam kezelni.
Van erre valami beépített lehetőség az Excelben, vagy makrózni kellene?

A fájlnevek dátum szerint változnak... a Munkalapok is...

SonyEricsson T20 - T68 - T610 - K700 - W800 - K750 - K800 - C702 - P1 - MOTO Defy - Galaxy S Advance - Galaxy S4 - Lumia 820 - Honor 7 - iPhone 5S

A makróban a $A$1 helyére azt a cellacímet írd, amitől megváltozik a SUM értéke, mert a makró a billentyűzetről történő bevitelt figyeli.

Ha egy tartománytól függ az A1 értéke, akkor ilyen legyen a makród:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B1:C20")) Is Nothing Then Then Range("C1") = Format(Now(), "hh:mm:ss")
End Sub

Ez a B1:C20 tartományban történt változás következtében írja be a C1-be az időt. Ehelyett add meg a saját összegzendő tartományodat.

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

Hú !!!

Köszönöm szépen,a megadott tartományos megoldás a legmegfelelőbb. Igaz 10 percembe telt míg rájöttem hogyan tudok még egy tartományt hozzáadni,de sikerült ,meg kitöröltem egy then-t.Viszon ha megőszültem volna se jöttem volna rá arra amit megoldottál nekem.

Kössz a fáradságot.

Sziasztok!

Táblázatban a következő képletet írtam be: =SZUM(C3/((C4/100)/*(C4/100))) és amikor a C3 ill. C4 rubrikában nincsenek adatok akkor ez jelenik meg: #######, a "Hiba, zéró osztó!" okolással.

Hogyan tudom ezt vagy láthatatlanná tenni esetleg javítani?

Tulajdonképpen a következő képlet kellene: x/(y/100)² de úgy, hogy a kitöltetlen x és y értékek ne okozzanak hibajelzést.

A segítséget előre is köszönöm!

Megisznak egy deci pálinkát. Miért? "Olyan savam vót, meg köllet innom egy deci pálinkát, aszittem megbolondulok." Aztán megisznak négy liter bort. Miért? "Há' semmi savam nem volt má'!"

szerintem a HIBÁS() fv segíteni fog...

[ Szerkesztve ]

Esetleg ezt eltudnád magyarázni? Ebből nem értettem semmit... kezdő vagyok ám...

Megisznak egy deci pálinkát. Miért? "Olyan savam vót, meg köllet innom egy deci pálinkát, aszittem megbolondulok." Aztán megisznak négy liter bort. Miért? "Há' semmi savam nem volt má'!"

Szia!
=HAHIBA(A3/HATVÁNY((B3/100);2);"")
ahol A3=x ill. B3=y
a fgv. meg a súgóban találsz leírást!

Bámulatos hol tart már a tudomány!

Szívesen. 10 perc nem nagy idő.

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

Private Declare Function SetCurrentDirectoryA Lib _
"kernel32" (ByVal lpPathName As String) As Long

Sub ChDirNet(szPath As String)
SetCurrentDirectoryA szPath
End Sub

Sub Combine_Workbooks_Select_Files()
Dim MyPath As String
Dim SourceRcount As Long, Fnum As Long
Dim mybook As Workbook, BaseWks As Worksheet
Dim sourceRange As Range, destrange As Range
Dim rnum As Long, CalcMode As Long
Dim SaveDriveDir As String
Dim FName As Variant

With Application
CalcMode = .Calculation
.Calculation = xlCalculationManual
.ScreenUpdating = False
.EnableEvents = False
End With

SaveDriveDir = CurDir
ChDirNet "C:\"

FName = Application.GetOpenFilename(filefilter:="Excel Files (*.xl*), *.xl*", _
MultiSelect:=True)
If IsArray(FName) Then
Set BaseWks = Workbooks.Add(xlWBATWorksheet).Worksheets(1)
rnum = 1
For Fnum = LBound(FName) To UBound(FName)
Set mybook = Nothing
On Error Resume Next
Set mybook = Workbooks.Open(FName(Fnum))
On Error GoTo 0
If Not mybook Is Nothing Then
On Error Resume Next
With mybook.Worksheets(1)
Set sourceRange = .Range("A1:A25")
End With
If Err.Number > 0 Then
Err.Clear
Set sourceRange = Nothing
Else
If sourceRange.Columns.Count >= BaseWks.Columns.Count Then
Set sourceRange = Nothing
End If
End If
On Error GoTo 0

If Not sourceRange Is Nothing Then

SourceRcount = sourceRange.Rows.Count

If rnum + SourceRcount >= BaseWks.Rows.Count Then
MsgBox "Not enough rows in the sheet. "
BaseWks.Columns.AutoFit
mybook.Close savechanges:=False
GoTo ExitTheSub
Else
Set destrange = BaseWks.Range("A" & rnum)
With sourceRange
Set destrange = destrange. _
Resize(.Rows.Count, .Columns.Count)
End With
destrange.Value = sourceRange.Value

rnum = rnum + SourceRcount
End If
End If
mybook.Close savechanges:=False
End If
Next Fnum
BaseWks.Columns.AutoFit
End If
ExitTheSub:
With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = CalcMode
End With
ChDirNet SaveDriveDir
End Sub

Bámulatos hol tart már a tudomány!

erre semmi vélemény?

[ Szerkesztve ]

[ Szerkesztve ]

Sziasztok!

- Több adat akarnék egy diagramban megjeleníteni.

- érthetőbben - több diagramban egyben -
- egy menüből lehetne kiválasztani melyik adatra van szűkség...

- lehetne ennek valahol utána járni? (megtanulnám)

Az ösztön mindig többet ér az észnél.

az első munkalapon vannak adatok. a második munkafülön az elsőn lévő adatokra hivatkozok, valahogy igy:
=Munka1!A2

A harmadikra szeretném másolni a második tartalmát, úgy, hogy a cellákba ne mint hivatkozás, hanem ugy legyen, mintha én gépeltem volna be.

lehet ilyet csinálni excelbe?

asszem rájöttem, irányitott beillesztés, csak az értékeket másolom.

a másik gondom, hogy ha az első lapon ilyen érték szerepel pl.:
B-1234 VALAMI

Ezt úgy szeretném a második lapra hivatkozással betenni, hogy az A oszlopban legyen a B-1234 a B oszlopban pedig cask a valami. természetesen egy sorba.

Nem akartam még egy hozzászólást írni de nem találok rá megoldást

Van vagy 4 darab szó, és azt szeretném hogy csak az első szó legyen nagy betűvel kezdődve, a többi szó maradjon kisbetű

mert ugye van olyan képet hogy minden egyes szó. de nekem csak az első szó kell hogy így legyen

Szövegből oszlopok opciót használd

akyyy #14592

=NAGYBETŰS(BAL(C6;1))&KISBETŰ(JOBB(C6;HOSSZ(C6)-1))

C6 helyére meg a megfelelő cellát helyettesíted be.

Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)

Szia!
Ha jól gondolom akkor ilyet szeretnél!
Minden le van írva, hogy hogyan kell!
[link]

Bámulatos hol tart már a tudomány!

Köszi - alakul, de belevág a közepébe, az első lépések azok kimaradnak...

Az ösztön mindig többet ér az észnél.

az miért van, hogy le akarom húzni a cellát, kitöltvén automatikusan a hivatkozásokat, cask annyi baj van hogy az egyik cella köztesen üres.
kb igy néz ki:
=(Munka2!K5)
üres
=(Munka2!K6)
üres

ha ezt folytatva lehúzom, akkor igy fog kinézni
=(Munka2!K8)
üres
=(Munka2!K10)
üres

Az elején létrehozod a diagramot és utána kellenek azok a lépések!

Bámulatos hol tart már a tudomány!