[es] - Potreban makro za kopiranje bilo kog opsega u okviru reda u excelu u prvi slobodan red

zeljko1967
Opština
SZR Mehanika

Član broj: 298910
Poruke: 117
*.teol.net.

Profil

Potreban makro za kopiranje bilo kog opsega u okviru reda u excelu u prvi slobodan red

^{14.02.2012. u 12:54 - pre 148 meseci}

Pozdrav svima!

Molio bih za pomoć. Potrebno mi je da u niže navedenom makrou uradim ispravku istog (ako je moguće) tako da mi prihvati bilo koji označeni red u tabeli a ne samo 67.Na poslu imam bazu sa preko 4000 korisnika koju sam sam uradio u excelu i treba da, kada pronađem po imenu korisnika, u ovom slučaju polje B67, opseg B67:L67 kopiram i nalijepim u prvi slobodan red tabele.Znači opseg B67:L67 treba zamijeniti opsegom BX:LX gjde je x bilo koji broj od 1 pa nadalje. Hvala unaprijed.

Sub novizahtjev()
'
' novizahtjev Makro
' Makro je snimio: zeljkoj, dana 9.2.2012
'
' Tasterska prečica: Ctrl+k
'
Range("B67:L67").Select
Selection.Copy
Application.Run "'Registar 2012.xls'!starikorisnik"
ActiveSheet.Paste
Range("E84").Select
Application.CutCopyMode = False
Selection.ClearContents
End Sub

Odgovor na temu

FOX028
Visoka tehnicka skola strukovnih studija
Kosovska Mitrovica

Član broj: 258986
Poruke: 850

Sajt: https://www.zile028.com

+49 Profil

Re: Potreban makro za kopiranje bilo kog opsega u okviru reda u excelu u prvi slobodan red

^{14.02.2012. u 14:25 - pre 148 meseci}

Evo odradio sam ti jedan primer, valjda je ovo to sto tebi treba.

[email protected]=

Prikačeni fajlovi

FOX028-Kartice.xls - 114k

Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2268
194.106.170.*

Sajt: www.gowi.rs

+109 Profil

Re: Potreban makro za kopiranje bilo kog opsega u okviru reda u excelu u prvi slobodan red

^{14.02.2012. u 14:44 - pre 148 meseci}

Ako ti odgovara, možeš da koristiš dijalog aplikacije Application.InputBox da selektuješ oblast koju kopiraš

Code:
Dim rngSourse As Range
Set rngSource = Application.InputBox("Selektuj oblast za kopiranje:", _
"Oblast za kopiranje", Type:=8)
If (rngSource Is Nothing) = True Then Exit Sub
rngSource.Copy
…

Vidi primer http://www.elitesecurity.org/t226697-0#1351423

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

Odgovor na temu

srdrazic

Član broj: 187994
Poruke: 509

+13 Profil

Re: Potreban makro za kopiranje bilo kog opsega u okviru reda u excelu u prvi slobodan red

^{14.02.2012. u 16:26 - pre 148 meseci}

Možda ovo bude korisno.

http://www.elitesecurity.org/t426452

Teško je biti direktor a još teže ne biti!?

Odgovor na temu

zeljko1967
Opština
SZR Mehanika

Član broj: 298910
Poruke: 117
*.teol.net.

Profil

Re: Potreban makro za kopiranje bilo kog opsega u okviru reda u excelu u prvi slobodan red

^{15.02.2012. u 10:23 - pre 148 meseci}

Hvala svima, a tebi FOX 028 posebno. Nije baš kao što si mi predložio u primjeru, ali mi je puno pomoglo da riješim baš onako kako sam želio. HVALA JOŠ JEDNOM!

Odgovor na temu