Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Office Новый топик    Ответить
 Перенос остатков макросом  [new]
Ser Artur
Member

Откуда: Armenia
Сообщений: 1297
Доброго дня форумчане я уже 10 лет как забыл про макросы и появился вопрос
как перенести остатки расчетов на свободную строку другого листа
На листе X макросом заполняются данные 1) нач остаток из листа Y 2) Приход из листа Дата 3) заполняем вручную конечный остаток
После чего производится расчет столбца Расход и в конце макросом надо конечный остаток перевести на свободную строку листа Y как бы архивируем Спасибо
"Бухгалтера можно уподобить пчеловоду, ибо от его труда - учетной информации - извлекают пользу очень многие, но трудится он один. М.Ф. Ван Бреда"

К сообщению приложен файл (Book3.xlsx - 12Kb) cкачать
1 авг 20, 08:34    [22176476]     Ответить | Цитировать Сообщить модератору
 Re: Перенос остатков макросом  [new]
Ser Artur
Member

Откуда: Armenia
Сообщений: 1297
Sub test()
    Range("G5").CurrentRegion.Copy Sheets("Y").Cells(Rows.Count, 1).End(xlUp).Offset(1)
End Sub

Зделал так но все копирует
1 авг 20, 08:46    [22176478]     Ответить | Цитировать Сообщить модератору
 Re: Перенос остатков макросом  [new]
Ser Artur
Member

Откуда: Armenia
Сообщений: 1297
Сделал так но что то не так идет
Sub Ostatok()
    Dim lr As Long
    Dim wsIstochnik As Worksheet
    Dim wsMestoData As Worksheet
    
    Set wsIstochnik = Sheets("X")
    Set wsMestoData = Sheets("Y")
    
    lr = wsMestoData.Cells(Rows.Count, "A").End(xlUp).Row + 1
    
    wsMestoData.Range("A" & lr).Value = wsIstochnik.Range("A" & lr).Value
    wsMestoData.Range("B" & lr).Value = wsIstochnik.Range("B" & lr).Value
    wsMestoData.Range("C" & lr).Value = wsIstochnik.Range("C" & lr).Value
    wsMestoData.Range("D" & lr).Value = wsIstochnik.Range("D" & lr).Value
    
End Sub
1 авг 20, 11:45    [22176501]     Ответить | Цитировать Сообщить модератору
 Re: Перенос остатков макросом  [new]
Ser Artur
Member

Откуда: Armenia
Сообщений: 1297
Sub foo()
    Dim lr As Long
    Dim wsIstochnik As Worksheet
    Dim wsMestoData As Worksheet
    
    Set wsIstochnik = Sheets("X")
    Set wsMestoData = Sheets("Y")
    For n = 3 To 100
    lr = wsMestoData.Cells(Rows.Count, "A").End(xlUp).Row + 1
    
    wsMestoData.Range("A" & lr).Value = wsIstochnik.Range("A" & n).Value
    wsMestoData.Range("B" & lr).Value = wsIstochnik.Range("B" & n).Value
    wsMestoData.Range("C" & lr).Value = wsIstochnik.Range("C" & n).Value
    wsMestoData.Range("D" & lr).Value = wsIstochnik.Range("G" & n).Value
    Next n
End Sub

Все получилось
1 авг 20, 12:13    [22176503]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Office Ответить