Добре дошли!

Добре дошли в нашите форуми, пълни с полезна информация. Имате проблем с компютъра или телефона си? Публикувайте нова тема и ще намерите решение на всичките си проблеми. Общувайте свободно и открийте безброй нови приятели.

Моля, регистрирайте се за да публикувате тема и да получите пълен достъп до всички функции.

Малко помощ за допълване ( корекция ) ма макрос

Последователи

Нова тема
Отговор в тази тема

25 юли 20232 г.

Става дума за допълване на речник за превод на програми при лиса на търсени изрази

' ПРОБВАХ С ТОЗИ МАКРОС И ДОНЯКЪДЕ НЕЩАТА СЕ ПОЛУЧАВАТ.
' ПРОБЛЕМА Е ЧЕ КОПИРА КЛЕТКАТА - А2 - И ПОСТАВЯ КОРЕКТНО, НО С ОЦВЕТЯВАНЕТО.
' БИ ТРЯБВАЛО ДА КОПИРА САМО ИЗРАЗА - VALUE НА КЛЕТКАТА
' САМО ТОВА ДА СЕ ПОПРАВИ И ДА СЕ ДОПЪЛНИ ДА МАРКИРА ДОБАВЕНАТА КЛЕТКА ( ПОСЛЕДНИЯ РЕД В КОЛОНА - А) СЪС СЪДЪРЖАНИЕТО И

Sub InsertIntoEnd()
Dim last_row As Long
last_row = Cells(Rows.Count, "A").End(xlUp).Row
Range("A2").Copy Destination:=Cells(last_row + 1, "A")
End Sub

Цитирай

25 юли 20232 г.

Sub InsertIntoEnd()
    Dim last_row As Long
    last_row = Cells(Rows.Count, "A").End(xlUp).Row
    Range("A2").Copy
    Destination:=Cells(last_row + 1, "A").PasteSpecial Paste:=xlPasteValues
End Sub

Цитирай

25 юли 20232 г.

Автор

На този ред дава грешка -

 Destination:=Cells(last_row + 1, "A").PasteSpecial Paste:=xlPasteValues

Цитирай

25 юли 20232 г.

x1Up ?

Доколкото знам...

Може и да греша, не претендирам„

Цитирай

25 юли 20232 г.

За да поправите този проблем и да копирате само стойността (VALUE) на клетката без цвета, можете да използвате метода "PasteSpecial" с параметъра "xlPasteValues" вместо метода "Copy Destination". Така макросът ще копира само стойността на клетката.

Цитирай

25 юли 20232 г.

Автор

преди 6 минути, georgibgg написа:

За да поправите този проблем и да копирате само стойността (VALUE) на клетката без цвета, можете да използвате метода "PasteSpecial" с параметъра "xlPasteValues" вместо метода "Copy Destination". Така макросът ще копира само стойността на клетката.

Моле за извинение, но бихте ли нагласили целия макрос. Нещо не успявам

Цитирай

Добавете отговор

Можете да публикувате отговор сега и да се регистрирате по-късно. Ако имате регистрация, влезте в профила си за да публикувате от него.

Публикацията ви съдържа термини, които не допускаме! Моля, редактирайте съдържанието си и премахнете подчертаните думи по-долу. Ако замените букви от думата със звездички или друго, за да заобиколите това предупреждение, профилът ви ще бъде блокиран и наказан!

Напишете отговор в тази тема...