-
Fototrend
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
zsotesz81
senior tag
válasz Fire/SOUL/CD #8050 üzenetére
oks, köszi, majd hétvégén kicsit töröm rajta a fejem.
-
lasarus1988
tag
Sziasztok!
A következő lenne a problémám:
Sub Workbook_Open()
Call ExcelForm.DeleteChart("Ping statisztika")
Call ExcelForm.DeleteChart("Hisztogram")
Call ExcelForm.DeleteChart("Rövid idejű jitter")
Call ExcelForm.ClearSheet("Log")
Call ExcelForm.ClearSheet("Eredmény")
Call ExcelForm.ClearSheet("Gyakoriság")AddIns("Analysis ToolPak").Installed = True
AddIns("Analysis ToolPak – VBA").Installed = TrueApplication.WindowState = xlMaximized
Sheets("Log").Select
Range("A1").SelectLoad Ping
Ping.ShowEnd Sub
Ebben a szubrutinban elvileg hozzáadom automatikusan az Analysis Toolpak csomagokat az excel bővítményeihez, hogy azokat használni tudjam.
Az eredmény munkalapon adott oszlopból kéne hisztogramhoz adatot generálni. A bemeneti tartomány ez az oszlop, a kimeneti tartomány egy másik munkalap, a rekesz tartomány automatikus.
Ha megnyitom ezt a rutint tartalmazó xls-t akkor minden lefut csak éppen a hisztogramhoz szükséges adatokat nem generálja le és ezért diagramon sincs ábrázolva. Ezt a jelenséget mindaddig csinálja, amíg egyszer manuálisan végig csinálom a hisztogram adatainak legenerálását, utána már csinálja rendesen. Ha bezárom a munkafüzetet és újra megnyitom akkor kezdi elölről.
Valakinek valami tippje erre?
Köszönöm a segítséget!
-
félisten
válasz lasarus1988 #8052 üzenetére
Hali!
Na most az a gondom, hogy itt minden van, csak épp a generáló kód, vagy annak meghívását nem látom...
Vagy a Ping form valamelyik eseményéhez lenne társítva a generáló kód?
Fire.
[ Szerkesztve ]
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)
-
zsotesz81
senior tag
válasz Fire/SOUL/CD #8050 üzenetére
Hi!
Úgy tűnik sikerült megoldanom a visszaolvasást listbox-ba. Igaz nem egyedül jöttem rá, túrtam a netet rendesen.
Private Sub UserForm_Initialize()
Dim cells As Range
Dim Rng As Range
With ThisWorkbook.Sheets("listbox1")
Set Rng = .Range("a1", .Range("a1").End(xlDown))
End With
For Each cell In Rng.cells
Me.ListBox1.AddItem cell.Value
Next cell
End Sub -
félisten
válasz zsotesz81 #8054 üzenetére
Hali!
Örvendetes hír, gratula!
Néha nem árt, ha magától jön rá az ember, még ha interneten is keresgéltél a megoldás után. Valószínüleg ez a tudás már megmarad...Fire.
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)
-
mr.nagy
tag
Sziasztok!
Régebben volt szó a cella színek összeszámolásáról / értékük összegzéséről. Akkor ezt a megoldást ajánlotta valaki:
----------------------------------------------------------------------
Function CountColor(Mintacella As Range, Tartomany As Range)
'Összeszámolja, hogy a mintaként jelölt háttérszínű cellából hány darab
'van a kijelölt tartományban.
Dim rngCell As Range
nColor = Mintacella.Interior.Color
nResult = 0
For Each rngCell In Tartomany
If rngCell.Interior.Color = nColor Then
nResult = nResult + 1
End If
Next rngCell
CountColor = nResult
End Function
----------------------------------------------------------------------
Function SumColor(Mintacella As Range, Tartomany As Range)
'A mintaként bejelölt hátterű cellákban szereplő számokat összegzi
Dim rngCell As Range
nColor = Mintacella.Interior.Color
nResult = 0
For Each rngCell In Tartomany
If rngCell.Interior.Color = nColor Then
nResult = nResult + WorksheetFunction.Sum(rngCell)
End If
Next rngCell
SumColor = nResult
End Function
-----------------------------------------------------------------------Nos egy ilyenre lenne nekem is szükségem, viszont a színek feltételes formázással vannak megadva. Ezeket a feltétles formázással jelölt cellákat kellene össze adni értékre és darabszámra.
Tudtok erre valami megoldást?[ Szerkesztve ]
HMNote10Pro
-
félisten
válasz mr.nagy #8056 üzenetére
Hali!
Ez a kód remek alapot kínál a megoldásra, hisz nem kell mást tenned, mint a SumColor függvényt meghívni párszor. Pl A1 : A100 ban vannak az adatok, a feltételes formázás 3 színnel dolgozik, akkor erre a három színre kifested a B1/B2/B3 cellákat, majd valamelyik cellába pl C1-be meg beírod ezt
=SumColor(B1;A1:A100)+SumColor(B2;A1:A100)+SumColor(B3;A1:A100)Fire.
UI: Nem próbáltam ki, de elméletben így működnie kell a dolognak.
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)
-
félisten
válasz Fire/SOUL/CD #8057 üzenetére
Hali!
A SumColor függvényben ki kell cserélni ezt a sort
nResult = nResult + WorksheetFunction.Sum(rngCell)
erre
nResult = nResult + rngCell.Value
Fire.
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)
-
lasarus1988
tag
válasz Fire/SOUL/CD #8053 üzenetére
Hello,
miután megvannak az adatok amiket kiolvastam, akkor meghívom a hisztogram rutint, hogy készítse el a gyakoriság táblázatot illetve a hozzá tartozó oszlop diagramot.
Application.Run "ATPVBAEN.XLAM!Histogram", ActiveSheet.Range("$A$2:$A$30") _
, ActiveSheet.Range("$B$1"), , False, False, False, FalseActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Range("'Munka2'!$A$1:$B$7")
ActiveChart.ChartType = xlColumnClustered
ActiveChart.Location Where:=xlLocationAsNewSheet
Sheets("Diagram1").Select
Sheets("Diagram1").Move After:=Sheets(4)
Sheets("Munka1").Select
Range("A1").SelectHa csak megnyitom az xls-t akkor hiba nélkül lefut a program, épp csak a gyakoriság táblázatot nem készíti el, de ha utána manuálisan újra lépésről lépésre megcsinálom, majd újra elindítom a programot, akkor már automatikusan megcsinálja ahogyan kéne.
Köszönöm a segítséget!
[ Szerkesztve ]
-
félisten
válasz lasarus1988 #8059 üzenetére
Hali!
Az első sort kihagytam(Application.Run.....), mert az nálam ugye nem működhet...
Megnyitáskor simán lefut és létre is hozza a diagrammot...
A makró beállítás ugye így van belőve? [link]
Ez a legrosszabb eset, mert ha nálam sem menne, akkor lehetne keresni az okát, de így hogy műxik, nem tudok mit benne keresni...Fire.
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)
-
lasarus1988
tag
válasz Fire/SOUL/CD #8060 üzenetére
Sajnos pont az első sor a probléma a többi már csak diagram készítés. Egyébként beépített excel add-in az első sor (Analysis Toolpak, Analysis Toolpak - VBA).
A makrók ugyanúgy vannak beállítva ahogyan Nálad!
Próbáld ki a következőt:
Excel beállításai/Bővítmények/Excel bővítmények/Ugrás->Analysis Toolpak, Analysis Toolpak - VBA pipa és OK
Private Sub Workbook_Open()
Range("A1").Select
ActiveCell.FormulaR1C1 = "1"
Range("A2").Select
ActiveCell.FormulaR1C1 = "2"
Range("A1:A2").Select
Selection.AutoFill Destination:=Range("A1:A20"), Type:=xlFillDefault
Range("A1:A20").Select
Range("A1").Select
Application.Run "ATPVBAEN.XLAM!Histogram", ActiveSheet.Range("$A$1:$A$20") _
, ActiveSheet.Range("$D$1"), , False, False, False, FalseEnd Sub
Ha ez megvan akkor rakj egy gombot a munkalapra és rendeld hozzá ugyanazt a fenti kódot. Ment, bezár, újra megnyit! Ha működik akkor a D és E oszlopban megjelennek a rekesz és gyakoriság értékek, hanem akkor nincs ott semmi.
Nyomd meg a gombot! Megint nem történik semmi és ezt sokáig el tudod játszani.
Manuálisan csináld meg a hisztogramot (Adatok fül/Adatelemzés/Hisztogram)
Bemeneti tartomány : A1:A20
Rekesz tartományt ne adj meg
Kimeneti tartomány: D1D és E oszlopban megjelennek a rekesz és gyakoriság értékek! Töröld ki, nyomd meg a gombot és működik! De addig nem csinálja automatikusan amíg egyszer végig nem csinálod manuálisan.
Bocsánat, ha nagyon szájba rágós lett, de három napja ezen töröm a fejem és nem jöttem rá a problémára.
Köszönöm, ha kipróbálod!
-
félisten
válasz lasarus1988 #8061 üzenetére
Hali!
3 dolog
1. Ez tényleg jó fejtörő, nálam is megvan a jelenség 2007 alatt... Majd még agyalok rajta aztán ha meg van a megoldás(ha meg lesz egyáltalán) akkor írok...
2. Ennyire tényleg nem kellett volna szájbarágósan leírni...
3. Ha legközelebb kódot illesztesz be, akkor a hozzászólás írásakor használd a Programkód gombot, mert így olyan csalamádé a kinézet....
Fire.
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)
-
mr.nagy
tag
válasz Fire/SOUL/CD #8058 üzenetére
Szia!
Nekem nem akar működni és nem tudom hol rontom el!
Csináltam egy egyszerű demó táblázatot, hogy mit is szeretnék. Feltöltöttem ide:
[link]Megnéznéd miért nem működik?
Előre is köszönöm!HMNote10Pro
-
lasarus1988
tag
válasz Fire/SOUL/CD #8062 üzenetére
1. Köszönöm, hogy megnézted, megnyugodtam, hogy nem én vagyok a hülye!
2.-3. Fejben tartom!
Még egyszer köszönöm!
-
ulrik19
tag
válasz mr.nagy #8063 üzenetére
Az interior.colorindex a cella beállított háttérszínét tartalmazza, a feltételes formázás hatására létrejött színt nem. (tehát a cella alapbeállítása van itt)
Sajnos nem tudok olyan egyszerű megoldásról, amivel meg lehet kapni az aktuális színt (tehát nincs a celláknak ilyen tulajdonságuk), persze kerülő úton meg lehet oldani:
a) ha azonos a feltételes formázás minden cellában, akkor nem szín, hanem maga a feltétel alapján összegzed, számolod össze a cellákat, tehát a feltételt "bedrótozod" a makróba
b) általánosabb megoldás, ha visszafejted a feltétel formázás paramétereit a cella FormatConditions alapján, és összeveted a cella aktuális értékével. Itt ahány feltételt állítottál be, annyi dimenziós tömböt látsz (FormatConditions(i), vagy FormatConditions.Item(i), ahol az elemek számát a FormatConditions.Count-ból kapod meg). Ha valamelyik feltétel teljesül, a feltétel háttérszíne lesz a megjelenő szín, FormatConditions(1).Interior.Colorindex, ha egyik sem, akkor a cella alapbeállítása szerinti szín látszik.ez talán lehet kiinduló alap hozzá:
[link]...az élet igazságos, mert pl. akinek rövidebb az egyik lába, annak hosszabb a másik...
-
Delila_1
Topikgazda
válasz mr.nagy #8063 üzenetére
Fel akartam tölteni a módosított füzetet, de valahogy nem jött össze.
A képletek:
O9 =ÁTLAG(C9:M9)
Q9 =DARABTELI(C9:M9;">" & O9+2)
R9 =SZUMHA(C9:M9;">" & O9+2;C9:M9)
S9 =DARABTELI(C9:M9;"<" & O9-1)
T9 =SZUMHA(C9:M9;"<" & O9-1;C9:M9)
U9 =DARAB(C9:M9)-Q9-S9
V9 =SZUM(C9:M9)-R9-T9[ 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.
-
félisten
válasz mr.nagy #8067 üzenetére
Hali!
Igen, a problémát az okozza, hogy a feltételes formázásnál, nem a hagyományos háttérszín módosítás megy végbe. Én egy teljesen más megközelítést használtam ebben a kódban, azaz én magam írom meg a feltételeket és színezem a cellákat a feltételnek megfelelően. Ez biztosan kifogástalanul működik.
A makróban 2 dolgot kell megadni(bele is írtam hogy hol), az egyik a tartomány, amiben a kód dolgozik, a másik az eredménytábla bal felső cellája(mert hogy eredménytáblát hoz létre, amit persze módosíthatsz az igényednek megfelelően)
Ahány feltétel, annyival kell módosítani illetve az eredménytábla kiírását bővíteni/csökkenteniPrivate Sub Worksheet_Change(ByVal Target As Range)
Dim My_Range As Range
'Itt megadod, hogy milyen tartományban dolgozzon a kód
Set My_Range = Range("C9:M9")
Dim My_Dest_Range As Range
'Itt megadod a kezdőcellát, ahova az eredménytábla kerül
Set My_Dest_Range = Range("C11")
If Not Intersect(My_Range, Range(Target.Address)) Is Nothing Then
Call My_Conditions(My_Range, My_Dest_Range)
End If
End SubEz pedig Module1-ba kerül
Sub My_Conditions(My_Range As Range, Dest_Range As Range)
Col1Index = 3
Col2Index = 4
Col3Index = 5
ColEmpty = xlNone
Col1Num = 0
Col1Sum = 0
Col2Num = 0
Col2Sum = 0
Col3Num = 0
Col3Sum = 0
ColEmptyNum = 0
ColEmptySum = 0
Application.ScreenUpdating = False
For Each CurrCell In My_Range
If CurrCell.Value >= 0 And CurrCell.Value <= 5 Then
CurrCell.Interior.ColorIndex = Col1Index
Col1Num = Col1Num + 1
Col1Sum = Col1Sum + CurrCell.Value
ElseIf CurrCell.Value > 5 And CurrCell.Value <= 7 Then
CurrCell.Interior.ColorIndex = Col2Index
Col2Num = Col2Num + 1
Col2Sum = Col2Sum + CurrCell.Value
ElseIf CurrCell.Value > 7 And CurrCell.Value <= 10 Then
CurrCell.Interior.ColorIndex = Col3Index
Col3Num = Col3Num + 1
Col3Sum = Col3Sum + CurrCell.Value
Else: CurrCell.Interior.ColorIndex = xlNone
ColEmptyNum = ColEmptyNum + 1
ColEmptySum = ColEmptySum + CurrCell.Value
End If
Next CurrCell
Dest_Range.Select
ActiveCell(1, 1) = "Piros cella darabszám"
ActiveCell(1, 2) = Col1Num
ActiveCell(2, 1) = "Piros cella összeg"
ActiveCell(2, 2) = Col1Sum
ActiveCell(3, 1) = "Zöld cella darabszám"
ActiveCell(3, 2) = Col2Num
ActiveCell(4, 1) = "Zöld cella összeg"
ActiveCell(4, 2) = Col2Sum
ActiveCell(5, 1) = "Kék cella darabszám"
ActiveCell(5, 2) = Col3Num
ActiveCell(6, 1) = "Kék cella összeg"
ActiveCell(6, 2) = Col3Sum
ActiveCell(7, 1) = "Színtelen cella darabszám"
ActiveCell(7, 2) = ColEmptyNum
ActiveCell(8, 1) = "Színtelen cella összeg"
ActiveCell(8, 2) = ColEmptySum
Application.ScreenUpdating = True
End SubFire.
[ Szerkesztve ]
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)
-
zsotesz81
senior tag
Hi!
Egy oszlop első üres celláját hogy tudom kijelölni makróval?
Tehát pl. ha A1-A5-ig van adat akkor az A6-ra ugorjon.
-
mr.nagy
tag
válasz Fire/SOUL/CD #8068 üzenetére
Szia!
Köszönöm szépen a választ, kipróbálom ezt a megoldást is!
Üdv,
mr.nagyHMNote10Pro
-
Jarod1
addikt
ááh 1 banális kérdés hogy tudok sok oszlopot nagybetűre átíratni?
-
félisten
Hali!
15 napig ingyenesen használható, gondolom nincs annyi cella, amivel ennyi idő alatt ne végezne... [link]
Fire.
UI: Meg egy egyszerűbb makróval is megoldható, de most lusta vagyok...
Szerk
Mégsem vagyok ennyire lusta.
Dobj egy commandbutton-t a munkalapra, duplaklikkEz a munkalapon lévő összes cellát nagybetűsre varázsolja
Private Sub CommandButton1_Click()
UsedRange.Select
For Each mycell In Selection
mycell.Value = UCase(mycell.Value)
Next mycell
End SubHa kihagyod a UsedRange.Select sort, akkor meg azt a cellát amin állsz, vagy az általad kiválasztott cellákat.
[ Szerkesztve ]
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)
-
félisten
-
Jarod1
addikt
üdv, arra lennék kiváncsi melyik Színhez milyen szám tartozik....
-
félisten
[ Szerkesztve ]
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)
-
Pulsar
veterán
Sziasztok!
Egy kis macro segítséget szeretnék kérni.
Azt szeretném megcsinálni, hogy van egy táblázatom, aminek az A oszlopa tartalmaz mondjuk 5 féle értéket (szöveg). A B oszlop pedig tartalmaz számokat. Azt szeretném, hogy megadok egy értéket akár a makróba is fixen, hogy az A oszlop egyik értékét nézve a hozzá tartozó B oszlop értékeinek az átlagát mondja meg.
Remélem érthető -
félisten
Hali!
A1 :A5 tartalmazza a szöveges adatokat, B1 : B5 meg a számokat
=ÁTLAGHA(A1:A5;"ubul";B1:B5)
vagy akár
=SZUMHA(A1:A5;"ubul";B1:B5)/DARABTELI(A1:A5;"ubul")
Fire.
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)
-
Abi8211
csendes tag
Sziasztok!
Segítségeteket szeretném kérni. Van 1 adatbázisom, amiben a file név az adott nap dátuma (pl. 2009_01_01_DAILY_REPORT.xls) szeretnék készíteni egy összegző file-t, amibe mindegyik fileból a C6-os cella kellene kigyűjteni.
Lusta vagyok egyesével hivatkozással be link-elni.
hívatkozás: =[2009_08_01_DAILY_REPORT.xls]TEMP!$F$9
Ezért az szeretném, ha húzom lefelé, akkor a file névben szeretném ha változna a napra utaló karakter (félkövér) vagyis a 01-es változzon, növekedjen 1-el.
ha tudtok ennek a kivitelezésében, akkor azt nagyon megköszönném előre is! -
Delila_1
Topikgazda
válasz Abi8211 #8079 üzenetére
A1-be beírod: 2009_01_01
Ezt szövegként értelmezi az Excel. Mikor lemásolod (lehúzod), az utolsó számjegyet növeli eggyel.
B1-> ="["& A1&"_DALY_REPORT.xls]TEMP!$F$9"
C1 (vagy ahova be akarod tenni a hivatkozást) -> =INDIREKT(B1)Szerkesztés
Amire figyelned kell: az A oszlopban a 2009_01_31 után 2009_01_32 következik, a hónapok utolsó napja után át kell írnod a hónapot és napot.[ 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.
-
Delila_1
Topikgazda
válasz Abi8211 #8079 üzenetére
Egy egyszerűbb megoldás az A oszlopra:
Beírod az A1-be a kezdő dátumot 2009.01.01 formában. Ezt lemásolod, ameddig kell, majd kijelölve az oszlopot, a csere funkcióval minden pontot kicserélsz alsó kötjelre. Ezután jöhet a két képlet, amit az előbb ajánlottam.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Abi8211
csendes tag
válasz Fire/SOUL/CD #8062 üzenetére
Szia, előre is köszönöm, most még 1 kicsit utána jártam, és elérhető az említett adatok, nem csak excel formátumban vannak meg, hanem le tudjuk tölteni dbf formátumban is. A probléma az, hogy ennél a 1 faladatnál különben sem kellett ilyenekkel foglalkoznom, így nem nagyon vagyok otthon a dologban.
üdv:Mindenkinek
-
félisten
-
Pulsar
veterán
válasz Fire/SOUL/CD #8078 üzenetére
Szia!
Tökéletes, köszönöm szépen!
-
Kobe
veterán
Sziasztok
adott egy allando kinezetu, formatumu riport, egy eleg bonyolult Pivottal.
Ezt a riportot havonta kell frissiteni. A gyorsabb munka erdekeben arra gondoltam egyszeruen kicserelem az elozo havi listat, adattablat az uj adattablaval. Ezek formatumra, oszlopok sorrendjere, darabjara, nevere stb tokeletesen megegyeznek.A problemam az, hogy ha szimplan kicserelem es ranyomok a pivoton a refresh datara, akkor ugyan az uj adatokkal, de a regi mennyisegben frissiti a tablat. Pl juliusban 2500 item volt a tablazatban, augusztusban 3400, akkor ha berakom a regi tabla helyere az augustusi 3400at, a 3400bol csak az elso 2500at veszi figyelembe
Lehet ezt utolagosan modositani valahogy, hogy mind a 3400at figyelembe vegye a Pivot frissitesenel?
Azert lenne ra szukseg mert tenyleg egy komplex pivot, amit havonta ujra felepetine es megformazni nem kis feladat -
Delila_1
Topikgazda
-
Nowhere
tag
Helló
Kérnék egy kis segítséget.
Van két táblázat amit össze kellene hasonlítani. Fkeres kézenfekvő lenne, de.
Mindkét táblázat ugyanúgy épül fel, mondjuk az A oszlopban vannak az azonosítók és mellette B-ben egy hozzátartozó másik azonosító. Pl:
cica, cirmos
cica, fekete
cica, kék
kutya, fekete
stbHogy lehetne megoldani, hogy mind a két azonosítót figyelembe vegye azonosításnál? Mert addig jutottam, hogy sima fkeressel csak az elsőt veszi figyelembe, magyarul ahol cicát talál az mindig cirmos lesz.
Köszi előre is!
-
zsotesz81
senior tag
Hi!
Van egy oszlopom amiben van szöveg és szám egyaránt. Hogy tudom azt megcsinálni makróval, hogy az oszlopból a számokat kigyűjtse egymás mellé mondjuk egy másik munkalapra?
-
Delila_1
Topikgazda
válasz Nowhere #8090 üzenetére
Szúrj be egy oszlopot az első elé. A mellékelt kép megmutatja, mit tegyél.
Már javítok is. Beírtam a megjegyzést, utána töröltem a két táblázat között egy oszlopot.
A H3 képlete helyesen
=FKERES(F3& " " & G3;A:D;4;0)[ 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.
-
félisten
válasz zsotesz81 #8091 üzenetére
Hali!
Ha egy példával illusztrálnád, hogy pontosan mi is van egy cellában(ami szöveget, számot stb tartalmaz), akkor könnyebb lenne segíteni és adott esetben makró sem kellene hozzá...
pl
123-abc-jenő
321-cba-őnejstb stb vagy ha változó tartalmúak, akkor meg arról pár példát dobj be...
Fire.
[ Szerkesztve ]
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)
-
Delila_1
Topikgazda
válasz Abi8211 #8089 üzenetére
Az xls kiterjesztésből látom, hogy a 2003-as verziót használod. Ha magyar nyelvű, akkor működnie kell, ahogy leírtam. Angol nyelvű esetén az INDIREKT helyett INDIRECT-et írj.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
zsotesz81
senior tag
válasz Fire/SOUL/CD #8093 üzenetére
Képen a probléma
http://www.kephost.com/images3/hrz58dob1ujygj52st9h.jpg
A B oszlopból kellenének a számok (B6, B12 stb.). Viszont mindenképp makróval szeretném megoldani[ Szerkesztve ]
-
félisten
válasz zsotesz81 #8097 üzenetére
Hali!
Ja hogy így szám meg szöveg(amúgy jó randa minőségű lett az a kép)...
A feladat, hogy végigszaladsz a B oszlop celláin(az utolsó használtig, ez már gondolom menni fog) és egyenként megvizsgálod, hogy szám avagy nem szám, a cella tartalma. Ha az átmásolod, ha nem, akkor a következő cellát vizsgálod. Így lehet egyszerűen eldönteni hogy szám avagy nem pl:
If IsNumeric(Range("A1")) = True Then
MsgBox ("Szám")
Else: MsgBox ("Nem szám")
End IfSzerk
Közben látom javult a képminőség...Fire.
[ Szerkesztve ]
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)
-
zsotesz81
senior tag
válasz Fire/SOUL/CD #8098 üzenetére
Köszi, kipróbálom.
-
zsotesz81
senior tag
Hali!
Újabb gond, az előbbi példában lévő számokat egy másik munkalapra szeretném másolni, úgy hogy az adott sor első üres cellájától kezdve egymás mellé.
Ezzel próbálkoztam:
For b = 1 To 33
If Cells(b, 2) <> "" And (IsNumeric(Cells(b, 2)) = True And Cells(b, 2) <> "Resolved") Then
Worksheets("result").Select
Range("A1").End(xlToRight).Offset(0, 1).Select
ActiveCell.Value = Sheets("data").Cells(b, 2)Tehát a result munkalap első sorába gyűjteném őket egymás mellé. Viszont a fenti kóddal Application defined or object defined error-t ad. Viszont ha kiveszem a Worksheets("result").Select sort, vagyis nem váltok munkalapot, akkor lefut, viszont akkor a számokat arra a munkalapra másolja amelyiken ömlesztve vannak az adatok, ami nem jó.
Van valami megoldás erre?
Új hozzászólás Aktív témák
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! LEGOLCSÓBB! Automatikus 0-24
- Steames kulcsok jó áron eladóak!
- Windows 10/11 Home/Pro , Office OEM/Retail kulcsok
- PC JÁTÉKOK (OLCSÓ STEAM, EA , UPLAY KULCSOK ÉS SOKMINDEN MÁS IS 100% GARANCIA )
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.