Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Problem sa kodom

[es] :: Office :: Excel :: Problem sa kodom

[ Pregleda: 897 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

darkos1
banjaluka RS

Član broj: 267138
Poruke: 75
31.223.130.*



+1 Profil

icon Problem sa kodom25.01.2021. u 15:13 - pre 38 meseci
Kod neće da odradi svaki put, već svaki drugi put, a ne menjam nista u kodu.
Prikačeni fajlovi
 
Odgovor na temu

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

Moderator
Član broj: 25683
Poruke: 2267
*.mediaworksit.net.

Sajt: www.gowi.rs


+109 Profil

icon Re: Problem sa kodom25.01.2021. u 20:47 - pre 38 meseci
Najlakše da prebaciš Worksheets("kupci").Unprotect () na početak, jer problem koliko sam video desi se prilikom aktivaciji lista - prekine se operacija kopiranja. Usput ActiveSheet.Activate na početku ti ne treba

Ja lično bih umesto kopiranja koristio direkntu dodelu vrednosti, to mi se čini mnogo preglednije

Code:

Sub KupciPrepis()
Dim rw As Long
Dim cl As Integer
Dim shSource As Worksheet, shDest As Worksheet

Set shSource = ActiveSheet
Set shDest = ThisWorkbook.Sheets("Kupci")
rw = shDest.Range("A6000:E6000").End(xlUp).Row + 1

'
Worksheets("kupci").Unprotect ("dada")
For cl = 1 To 5
    shDest.Cells(rw, cl).Value = shSource.Range("B24").Offset(RowOffset:=cl)
Next cl

Worksheets("kupci").Protect ("dada")
End Sub

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

darkos1
banjaluka RS

Član broj: 267138
Poruke: 75
31.223.130.*



+1 Profil

icon Re: Problem sa kodom26.01.2021. u 21:07 - pre 38 meseci
Hvala
 
Odgovor na temu

[es] :: Office :: Excel :: Problem sa kodom

[ Pregleda: 897 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.