Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Копировать данные в таблицу, только Значения и форматы чисел - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Копировать данные в таблицу, только Значения и форматы чисел
Chelovekov Дата: Суббота, 16.12.2023, 01:28 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 313
Репутация: 0 ±
Замечаний: 80% ±

Excel 2016
Здравствуйте, Уважаемые Форумчане. Прошу, Вас, помочь решить проблему, нужно доработать макрос, который при копирования данных, переносить только, Значения и форматы чисел, на данный момент макрос копирует вместе с формулами.
[vba]
Код
Option Explicit

Sub Отправить()

    Dim shSrc As Worksheet, shRes As Worksheet
    Dim lr As Long
    
    Application.ScreenUpdating = False
    
    Set shSrc = ThisWorkbook.Worksheets("Данные")
    Set shRes = ThisWorkbook.Worksheets("Таблица")
    
    lr = shRes.Cells(shRes.Rows.Count, "A").End(xlUp).Row + 1
    shSrc.Range("A2:H2").Copy shRes.Cells(lr, "A")
    
    shRes.Activate
    shSrc.Activate
    
    MsgBox "Готово!", vbInformation
    Application.ScreenUpdating = True

End Sub
[/vba]

Пример прилагаю.
Заранее благодарен.
К сообщению приложен файл: primer1.xlsm (19.9 Kb)


Сообщение отредактировал Chelovekov - Суббота, 16.12.2023, 01:29
 
Ответить
СообщениеЗдравствуйте, Уважаемые Форумчане. Прошу, Вас, помочь решить проблему, нужно доработать макрос, который при копирования данных, переносить только, Значения и форматы чисел, на данный момент макрос копирует вместе с формулами.
[vba]
Код
Option Explicit

Sub Отправить()

    Dim shSrc As Worksheet, shRes As Worksheet
    Dim lr As Long
    
    Application.ScreenUpdating = False
    
    Set shSrc = ThisWorkbook.Worksheets("Данные")
    Set shRes = ThisWorkbook.Worksheets("Таблица")
    
    lr = shRes.Cells(shRes.Rows.Count, "A").End(xlUp).Row + 1
    shSrc.Range("A2:H2").Copy shRes.Cells(lr, "A")
    
    shRes.Activate
    shSrc.Activate
    
    MsgBox "Готово!", vbInformation
    Application.ScreenUpdating = True

End Sub
[/vba]

Пример прилагаю.
Заранее благодарен.

Автор - Chelovekov
Дата добавления - 16.12.2023 в 01:28
i691198 Дата: Суббота, 16.12.2023, 10:09 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 237
Репутация: 88 ±
Замечаний: 0% ±

Здравствуйте. Вам нужно вместо строки[vba]
Код
shSrc.Range("A2:H2").Copy shRes.Cells(lr, "A")
[/vba] вставить такие строки
[vba]
Код
  shSrc.Range("A2:H2").Copy
     shRes.Cells(lr, "A").PasteSpecial Paste:=xlPasteValuesAndNumberFormats
     shRes.Cells(lr, "A").PasteSpecial Paste:=xlPasteFormats
[/vba]


Сообщение отредактировал i691198 - Суббота, 16.12.2023, 10:10
 
Ответить
СообщениеЗдравствуйте. Вам нужно вместо строки[vba]
Код
shSrc.Range("A2:H2").Copy shRes.Cells(lr, "A")
[/vba] вставить такие строки
[vba]
Код
  shSrc.Range("A2:H2").Copy
     shRes.Cells(lr, "A").PasteSpecial Paste:=xlPasteValuesAndNumberFormats
     shRes.Cells(lr, "A").PasteSpecial Paste:=xlPasteFormats
[/vba]

Автор - i691198
Дата добавления - 16.12.2023 в 10:09
Chelovekov Дата: Вторник, 19.12.2023, 12:28 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 313
Репутация: 0 ±
Замечаний: 80% ±

Excel 2016
Огромное спасибо hands
 
Ответить
СообщениеОгромное спасибо hands

Автор - Chelovekov
Дата добавления - 19.12.2023 в 12:28
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!