Keresés: - Visual Basic - Mobilarena Hozzászólások

Hirdetés

Legfrissebb anyagok

Mobilarena témák

PROHARDVER! témák

IT café témák

GAMEPOD témák

LOGOUT témák

Keresés

Új hozzászólás Aktív témák

#2888 xml2 újonc alfa20 #2887

Új Válasz 2017-08-26 20:36:46 #2888
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

xml2

újonc

válasz alfa20 #2887 üzenetére

Köszi szépen, ki fogom próbálni!
#2887 alfa20 senior tag alfa20 #2886

Új Válasz 2017-08-26 17:42:04 #2887
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

alfa20

senior tag

válasz alfa20 #2886 üzenetére

nézd meg ezt:
Sub main() Application.ScreenUpdating = False Dim usorKesz, alapSor As Long usorKesz = Sheets("Kész").Range("A" & Rows.Count).End(xlUp).Row alapSor = 1 Sheets("Alap").Select Do While (Cells(1, 1) <> "") Cells(1, 1).Copy Sheets("Összefűz").Range("A2").PasteSpecial Sheets("Kész").Cells(usorKesz + alapSor, 1) = Sheets("Összefűz").Range("A1") & _ Sheets("Összefűz").Range("A2") & Sheets("Összefűz").Range("A3") alapSor = alapSor + 1 Sheets("Alap").Cells(1, 1).Delete Loop Sheets("Kiegészít").Range("A1:A16").Copy Sheets("Kész").Range("A" & usorKesz + alapSor).PasteSpecial Application.CutCopyMode = False Application.ScreenUpdating = True End Sub
#2885 xml2 újonc alfa20 #2884

Új Válasz 2017-08-26 09:02:12 #2885
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

xml2

újonc

válasz alfa20 #2884 üzenetére

Nagyon köszönöm a segítséget, pont erre gondoltam!
Ha másolás helyett inkább kivágást szeretnék, akkor a Copy helyett mehet mindenhova Cut, ugye?
A tartalomban nem szerettem volna szóközt, úgyhogy kivettem a megjegyzést.
Szerk: Közben lázasan kerestem a hibát a saját művemben, jelzem, megtaláltam Félreértettelek, és az egyes tartalmak között nem szerettem volna szünetet, gondolom így értetted, hogy a cellák között. Tehát mégse kell az a sor
#2874 alfa20 senior tag alfa20 #2873

Új Válasz 2017-06-20 15:11:43 #2874
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

alfa20

senior tag

válasz alfa20 #2873 üzenetére

MySQL-ben kellett beállítani, hogy minden gép elérje most elérem a táblákat, jöhet a programozás
#2872 martonx veterán alfa20 #2871

Új Válasz 2017-06-20 09:39:07 #2872
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

martonx

veterán

válasz alfa20 #2871 üzenetére

Nyilván az Pi3 IP-je fog neked kelleni, valami általad beállított porttal, amit előtte átengedsz a tűzfalon.
Azt hiszem a mysql-ben használatos user permissionjei is fontosak, már ha nem root-tal akarod használni.
#2704 bundli tag alfa20 #2703

Új Válasz 2016-04-04 21:16:59 #2704
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

bundli

tag

válasz alfa20 #2703 üzenetére

Igen, pont ezzel próbáltam, de nem engedte az összevont cella miatt.
#2637 cigam titán alfa20 #2636

Új Válasz 2015-05-20 11:24:07 #2637
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

cigam

titán

válasz alfa20 #2636 üzenetére

A Split megoldás lehet a beolvasott szöveg szétszabdalására.
A keresésre pedig az Array.IndexOf használata adhat megoldást.
#2056 Bobrooney senior tag alfa20 #2055

Új Válasz 2013-04-10 08:46:30 #2056
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Bobrooney

senior tag

válasz alfa20 #2055 üzenetére

Szia!
Egyik tanárom jegyzete (nem végleges): [link] ez ingyenesen letölthető
Másik: Kovalcsik Géza: Az Excel programozása, Computerbooks, Budapest, 2005.
Erre mind a két könyv tökéletes, de kezdetnek talán az elsőt ajánlom.