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

Kopiranje pod uslovom zadrzavanja formatiranih celija

[es] :: Office :: Excel :: Kopiranje pod uslovom zadrzavanja formatiranih celija

[ Pregleda: 961 | Odgovora: 5 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

inzenjerija
inzenjer
sta dodje pod ruku
Tutin

Član broj: 336351
Poruke: 48
*.dynamic.isp.telekom.rs.



+1 Profil

icon Kopiranje pod uslovom zadrzavanja formatiranih celija29.03.2020. u 13:04 - pre 48 meseci
Pozdrav narode.

Imam dva problema pa ako je ko u mogucnosti da pomogne.
Prvi problem je automatsko odredjivanje visine reda konkretno u mom primeru celija B7
Naisao sam na slicnu temu "https://www.elitesecurity.org/t499897-Automatska-visina-reda" ali ovde nije bilo odgovora, odnosno "PICI" je to resio na svoj nacin menjanjem tabele, dok je to kod mene fiksno.
Razumem kada imamo pojedinacnu celiju da "AUTOFIT" odradi posao ali problem kod mene kao i kod "PICI" je to sto je spojeno vise celija "B7:J7".
Kroz guglanje sa vidio par primera gde se kroz za odrdjenu celiju zadaje fiksna velicina, u mom slucaju mozda kada bi imala opcija da prikaze broj karaktera unutar celije moze da se zada i velicina reda

Drugi problem je kopiranje ranga A1:J100 sa zadrzavanjem formata svih celija. Na koju god opciju "PasteSpecijal" da pokusam nije davalo zeljeni rezultat.
Pokusao sam preko makroa da nesto odradim ali bezuspesno.

Ima li nade ovome problemu stati na kraj
sve ce ovo jednom proci
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: Kopiranje pod uslovom zadrzavanja formatiranih celija30.03.2020. u 13:16 - pre 48 meseci
Što se tiče visine reda:
U istom redu u nekoj ćeliji sa strane npr P7 upiši forumlu =B7
1/ Namesti da ti ćelija sa formulam P7 ima istu širinu kao i zbir kolona B do J
2/ Uključi wrap za tu kolonu i ostala formatiranja podesi isto kao B7-J7
3/ Oboj slova u belo da se ne vide (može na kraju kad vidiš da radi)

Sada će se automatska visina reda računati prema P7 pa bi dupli klik trebalo da ispravno odredi visinu reda


Za koprianje - jedan način je da kopiraš ceo list u novi pa obriši šta ti ne treba. Moguće je napraviti i mako za to.


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

pera68
Bačka Palanka

Član broj: 98559
Poruke: 121
185.46.213.*



+9 Profil

icon Re: Kopiranje pod uslovom zadrzavanja formatiranih celija30.03.2020. u 13:37 - pre 48 meseci
Što se tiče kopiranja sa zadržavanjem formata ja u Excelu 2013 koristim opciju Copy - Paste Special - All using Source theme.
 
Odgovor na temu

Ivek33

Član broj: 66174
Poruke: 2898



+66 Profil

icon Re: Kopiranje pod uslovom zadrzavanja formatiranih celija30.03.2020. u 17:47 - pre 48 meseci
Kao što je Jpeca rekao, može preko makroa.
Citat:
Sub prenos()

Dim wscount As Integer
Dim wb As Workbook
Set wb = ActiveWorkbook
wscount = wb.Worksheets.Count

wb.Sheets.Add After:=wb.Sheets(wb.Sheets.Count)
wb.Worksheets(1).Range("A1:J100").Copy
wb.Worksheets(wscount + 1).Range("A1:J100").PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=False
wb.Worksheets(wscount + 1).Range("A1").EntireColumn.AutoFit
wb.Worksheets(wscount + 1).Range("A7").RowHeight = 50
End Sub

Nadam se da ti pomaže (Ako trebaš prepravke tada potraži nekoga tko programira u VBA)
LP
 
Odgovor na temu

inzenjerija
inzenjer
sta dodje pod ruku
Tutin

Član broj: 336351
Poruke: 48
*.dynamic.isp.telekom.rs.



+1 Profil

icon Re: Kopiranje pod uslovom zadrzavanja formatiranih celija31.03.2020. u 19:51 - pre 48 meseci
@Jpeca ovo je bilo najblize resenje mom problemu i radilo je nekoliko puta posle toga kao da je pokupio neko formatiranje i stoji bez ikakve reakcije i ako idem na iskljucivanje WRAT TEXT pa ponovno ukljucenje stoji bez promene.
kako sam naveo kroz moje pitanje da sam naisao na prost kod koji bi resio za pojedinacnu celiju
Code:
Range("b584").EntireRow.RowHeight = 43

broj 43 u kodu sam dobio na sledeci nacin (otkucao sam maksimum karaktera u spojenim celijama B:J pri cemu je broj kataktera bio 101, onda sam dobio ukupan broj karaktera u celiji B7 koja je ustvari rang B7:J7 i iznosio je 262, onda ide 262/101=2.594, zatim taj rezultat pomnozio sa visinom reda 16.5 i dobio rezultat 42.802

E sad kako da iskoristim taj rezultat koje smesten u nekoj od slobodnih celija desno od ovog ranga, a opet da se taj kod moze iskoristiti za sve celije ispod.

@pera 68 i @Ivek33 izvinjavam se jer nisam naglasio da je sav ovaj tekst dobijen preko formula, a kada sam probao ovu opciju on mi je preneo i formule gde rezultat #REF

Kod koji sam naveo gore resava problem ali za pojedinacnu celiju, kako da se preuredi kod resesava odredjeni rang i kako da se iskoristi rezultat dobijene vrednosti iz odrdjene celije da bi automatski prisirio red.

Hvala svima na javljanju
sve ce ovo jednom proci
 
Odgovor na temu

inzenjerija
inzenjer
sta dodje pod ruku
Tutin

Član broj: 336351
Poruke: 48
*.dynamic.isp.telekom.rs.



+1 Profil

icon Re: Kopiranje pod uslovom zadrzavanja formatiranih celija07.04.2020. u 20:13 - pre 48 meseci
Evo mene opet.
Sad kad smo prisilno vezani za kuću (COVID-19) pa se ima vise vremena za pronalaženje rešenja.
Uz konsultaciju sa jednim od programera kroz VBA dao mi je sledeci kod koji mi rešava problem a i sa Vama da podijelim možda će nekom koristiti a i da se preuredi za u neke druge svrhe

Code:
Sub POR2()

Const visinaJednogReda As Double = 16.5
Const sirinaColone As Double = 77

Dim rng As Range
Dim row As Range
Dim cell As Range
Dim visina As Double


' Definisi colonu koju hoces da kontrolises
Set rng = Range("B1:B100")

For Each row In rng.Rows
  For Each cell In row.Cells
    visina = WorksheetFunction.RoundUp(WorksheetFunction.Max(1, Len(cell.Value)) / sirinaColone, 0) * visinaJednogReda
    visina = WorksheetFunction.Max(1, WorksheetFunction.Round(visina, 0))
    cell.EntireRow.RowHeight = visina
   
    ' Ako hoces da imas ove vrijednosti u excelu
    row.Cells(1, 4).Value = Len(cell.Value)
    row.Cells(1, 7).Value = visina

   
  Next cell
Next row

End Sub

sve ce ovo jednom proci
 
Odgovor na temu

[es] :: Office :: Excel :: Kopiranje pod uslovom zadrzavanja formatiranih celija

[ Pregleda: 961 | Odgovora: 5 ] > FB > Twit

Postavi temu Odgovori

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