Hello dear ExcelForum!
I have this part of code to paste columns rows Formulas and cell formating:
But i can't get it to work. It's always shows cells without superscript format. Acctually, i have 2 cells with superscript.
Please Login or Register to view this content.
Previously, when i was using the old code: >example of another code<
Then code runned smoothly, showing correctly all cells.Please Login or Register to view this content.
Try this method
Before PasteSpecial.jpg
.
After Paste Special.jpg
.
Working example in attached workbook
- run with {CTRL} k
Please Login or Register to view this content.
Last edited by kev_; 03-19-2018 at 06:55 AM.
Click *Add Reputation to thank those who helped you. Ask if anything is not clear
what is this in your code?does it work?
Please Login or Register to view this content.
Last edited by kev_; 03-19-2018 at 07:06 AM.
"There's already data here. Do you want to replace it?"
NOT WORKING!
Please Login or Register to view this content.
It's working. Except superscriptOriginally Posted by kev_
Really!NOT WORKING!
It works in the example file - I tested it
.
Use this to avoid that message warning the user:"There's already data here. Do you want to replace it?"
Please Login or Register to view this content.
Last edited by kev_; 03-19-2018 at 06:25 PM.
really?what is this in your code? does it work?
.PasteSpecial xlPasteRowHeights
It's working. Except superscript
These are the valid options according to Microsoft:
xlPasteAll
xlPasteAllExceptBorders
xlPasteAllMergingConditionalFormats
xlPasteAllUsingSourceTheme
xlPasteColumnWidths
xlPasteComments
xlPasteFormats
xlPasteFormulas
xlPasteFormulasAndNumberFormats
xlPasteValidation
xlPasteValues
xlPasteValuesAndNumberFormats
and Excel itself does not contain it either ...
Row heights.jpg
.
I am very interested - I do not know about this option - I cannot get your code to work
- please attach a file with working code that copies row height from A1 to A2 using PasteSpecial
thank you
Last edited by kev_; 03-19-2018 at 06:59 PM.
The code even won't to paste cell bordersPlease Login or Register to view this content.
Maybe, kev_'s code must be outside IF statement?Please Login or Register to view this content.
Last edited by B.W.B.; 03-19-2018 at 11:13 AM.
- used correctly borders are pasted with PasteSpecial (xlPasteFormats)The code even won't to paste cell borders
.
Maybe, kev_'s code must be outside IF statement?
My code (post#2) :
Set Rng = Sheets("CopyFrom").Range("A2:C2")
Set rng2 = Sheets("CopyTo").Range("A1:C11") - here I used all columns and rows
Your code (post#8) :
Set IZV = Sheets(".....IZVJEŠTAJ").Range("B2:k67")
Set BCK = Sheets("Izvještaj_BACKUP").Range("B2") - here you only used the first cell
Try this (use the full range):
Code below is the same as above but may be more useful method if not pasting to exactly the same range in a different sheetPlease Login or Register to view this content.
- it ensures that both ranges are the same size
Please Login or Register to view this content.
Last edited by kev_; 03-19-2018 at 06:54 PM.
1. I have been thinking about (line in your code in post#1)
2. When I asked you about it, your reply was - "It's working. Except superscript"Please Login or Register to view this content.
3. Your reply is not correct - VBA throws an error with .PasteSpecial xlPasteRowHeights....
PasteSpecialRowHeights.jpg
4. Unless your original code contains this line....
5. The pasted row heights were correct for a different reasonPlease Login or Register to view this content.
Last edited by kev_; 03-20-2018 at 04:13 AM.
Did post#9 resolve your problem?
Thank YOU kev_ for your intereset,........not working
CaptureA.JPG
Please Login or Register to view this content.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks