Hirdetés
-
Computex 2024: dedikált NPU-val menedzselné a VGA-t a PowerColor
ph A gyártó megoldása hardveres, de kérdés, hogy nem volna-e a célra elég a jó öreg szoftver.
-
Az üzleti szférának szól a SmartThings Pro
ma A kütyüket összefogó megoldásból irodák, üzletek és hotelek is profitálhatnak.
-
Kibővítik a várost az ASML kedvéért
it Eindhoven városi tanácsa az ASML-féle bővítés mellett szavazott. Alaposan megváltozhat a lakók élete.
-
PROHARDVER!
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
-
szatocs1981
aktív tag
Sziasztok,
SAP-böl szeretném VBA-n keresztül egy EXCEL cellába írni az aktuális naphoz tartozó munkakezdés (hh:mm:ss) idejét.
SAP-ba való bejelentkezés megvan. Tunda valaki segíteni, hogyan tudnám az iöpontot kinyerni?elöre is köszönöm
-
szatocs1981
aktív tag
Szia,
szvsz egy pár soros makróval megoldható a probléma.
A kijelölt cellákat át tudod formázni idöröl szövegre úgy, hogy a cellák tartalma ne változzon.Sub Makro1()
Dim rng As Range
For Each rng In Selection
sString = rng.Text
rng.NumberFormat = "@"
rng.Value = sString
Next
End Sub[ Szerkesztve ]
-
szatocs1981
aktív tag
Igazából nem nagyon látom át a problémát.
Az segít, ha kiszüröm a kijelölésböl az üres cellákat és avval nem fog történni semmi?Megvan még az eredeti doksi?
EDIT:
Igy a kijelölt cellákból az üreseket békén hagyja:
Sub Makro1()
Dim rng As Range
For Each rng In Selection
sString = rng.Text
If sString <> "" Then
rng.NumberFormat = "@"
rng.Value = sString
End If
Next[ Szerkesztve ]
-
szatocs1981
aktív tag
Ha "szabályjal" meg tudod adni, hogy a két file hol helyezkedik el, akkor szvsz lehet automatizálni a beolvasást.
Pl.:
- ha a könyvtár mindig azonos és csak ez a két file van benne
- ha a könyvtár mindig azonos és ez a két file mindig a két legutolsó modosított file
...
..
.
Ha valamilyen szabályt fel tudsz állítani, akkor VBA-ban is el tudod érni biztonsággal.
Delila_1 által vázolt módon (FileDialogBox) is megoldható!
(csak sokat kell klikkelni, amit én speciel nem szeretek ) -
szatocs1981
aktív tag
szvsz, mert az "A" bezavarja. Mivel van benne egy betü, így már csak alfabetikus sorrendben lehet szürni, numerikus helyett.
2 lehetöséged van, hogy jó legyen:
a) kiveszed az "A" betüt
b) kiegészíted az összes számot pl. 4 jegyüre: A0001,....,A0105, ....,A2111[ Szerkesztve ]
-
szatocs1981
aktív tag
Jelöld ki a cellákat, amiket, módosítani szeretnél, majd futtasd le a következö makrót:
Sub Makro1()
Dim Zelle As Range
For Each Zelle In Selection.Cells
Zelle.Value = Left(Zelle.Value, 1) & Right("000" & Right(Zelle.Value, Len(Zelle.Value) - 1), 4)
Next Zelle
End SubA kijelölt cellákat az alábbiak szerint módositja:
Az elsö karakter változatlan marad, majd hozzátol 3db 0-t, végül levágja 4 jegyüre!Elötte készíts mindenképpen biztonsági másolatot!
[ Szerkesztve ]
-
szatocs1981
aktív tag
{=ha(sor()>szum(szám(szöveg.talál(C$1;A$1:A$100))*1);"";index(B:B;kicsi(ha(szám(szöveg.talál(C$1;A$1:A$100));}sor($1:$100));sor(A1))))
Evvel mennie kell! Ez nem sima, hanem egy tömbképlet (ctrl+alt+enter a végén, {} nélkül!)
Nekem német nyelvü excelem van, így lehet a függvények neve nem egészen stimmel. Ha nem müködik, akkor azokat ellenörizd le! -
szatocs1981
aktív tag
@Delila: azt irja, hogy két oszlopban vannak a kiindulási adatok!
Igen, nálam müködik.
azt elfelejtettem, hogy a C1-be ird be, hogy "nok".
idézöjel nélkül!és az elsö cellát amibe ezt bemásoltad, húz le, ameddig a vizsgálatot akarod megcsináltatni!
Amúgy "nekem semmi" az mit jelent? Hibaüzenet? vagy üres marad a cella?
[ Szerkesztve ]
-
szatocs1981
aktív tag
válasz Delila_1 #28375 üzenetére
Ez az eredeti, ami nálam müködik:
=WENN(ZEILE()>SUMME(ISTZAHL(FINDEN(C$1;A$1:A$7))*1);"";INDEX(B:B;KKLEINSTE(WENN(ISTZAHL(FINDEN(C$1;A$1:A$7));ZEILE($1:$7));ZEILE(A2))))A neten az "ISTZAHL" német függvényt nem találta az office fordító. Mit csinál a magyar "SZÀM" függvény?
Itt lehet a kutya elásva[ Szerkesztve ]
-
szatocs1981
aktív tag
OK, (talán) közben rájöttem.
D1-hez kellene bemásolni a függvényt, majd "lehúzni" a vizsgálandó cellák soráig. A csatolt képen én ugy veszem ki, hogy D12-nél indul. Így üresen marad minden....Talán...De az tuti, hogy D12-nél, a sor legvégén, az "A1" az nem stimmel, ott "A12"-nek kellene állnia.
[ Szerkesztve ]
-
szatocs1981
aktív tag
válasz tzimash #28399 üzenetére
Na, csak megvan:
If InStr(Cells(sor, "C"), "VBS/BS ") > 0 And Cells(sor, "F").Value = 8960 And Cells(sor, "D").Value = "J" And not (Cells(sor, "B").Value = 2381273 Or Cells(sor, "B").Value = 2381389 Or Cells(sor, "B").Value = 2587841 Or Cells(sor, "B").Value = 2437821 Or Cells(sor, "B").Value = 2531518 Or Cells(sor, "B").Value = 2417707 Or Cells(sor, "B").Value = 2832690) Then
-
szatocs1981
aktív tag
válasz the radish #28491 üzenetére
Lehet, h félreértelmezem a feladatot, de nem megoldás, ha csinálsz a .doc-ból egy kitölthetö .pdf-et?
-
szatocs1981
aktív tag
-
szatocs1981
aktív tag
válasz Dolphine #28522 üzenetére
Makrókat engedélyezed az EXCEL-ben, bemásolod, lefuttatod, majd ugyanúgy mented a munkalapot a makró nélkül.
Viszont ha ebbe a munkalapba nap, mint nap másolsz táblázatot, akkor "mentés makróval..." opciót válaszd és megmarad a makró.
A futtatás szerintem független ezetöl. Annak mennie kell, ha engedélyezve vannak.
-
szatocs1981
aktív tag
válasz Sweetraver #28525 üzenetére
-
szatocs1981
aktív tag
-
szatocs1981
aktív tag
Ez szétszedi az A1-ben lévöt és A2-B2 töl kezdve feltölti.
Pr´báld ki:Sub Split()
Dim txt As String
Dim x As Variant
Dim i As Long
txt = Cells(1, 1).Value
x = Split(txt, ", ")
ReDim y(UBound(x))
For i = 0 To UBound(x)
y(i) = Split(x(i), "(")
Next i
For i = 0 To UBound(x)
y(i)(1) = Replace(y(i)(1), ")", "")
Next i
For i = 0 To UBound(x)
Cells(i + 2, 1).Value = y(i)(0)
Cells(i + 2, 2).Value = y(i)(1)
Next i
End Sub -
szatocs1981
aktív tag
válasz the radish #28743 üzenetére
"Nem megy" - ez mit takar?
-
szatocs1981
aktív tag
válasz the radish #28745 üzenetére
Amúgy nem az a gond, hogy SZAMOKBAN a tizedesvesszöt akarod lecserélni pontra?
Azt szerintem Windows-ban vagy EXCEL beállításokban kell megtenni.Ha SZÖVEGBEN akarod lecserélni a vesszöt pontra, akkor müködik a makró!
[ Szerkesztve ]
-
szatocs1981
aktív tag
válasz the radish #28747 üzenetére
Próbáld meg evvel a makróval. Mielött futtatod jelöld ki a cellákat, ahol cserélni akarod a vesszöt pontra!
Sub Csere()
Dim Zelle As Range
For Each Zelle In Selection.Cells
Zelle.NumberFormat = "@"
Zelle.Value = Replace(Zelle.Value, ",", ".")
Next Zelle
End Sub[ Szerkesztve ]