Gorf (Автор тем)

Копирование данных и внесение даты их внесения

Gorf Пользователь Сообщений: 15 Регистрация: 15.01.2015	# 18.08.2015 19:21:26 Подскажите пожалуйста как правильно написать макрос чтобы внося данные в ячейку например D11 на другом листе в стобце В эти данные отображались, а напротив в стобце С ставилась дата. Заранее спасибо.
	Перейти

Определить последнюю заполненную ячейку в столбце

Gorf

Пользователь

Сообщений: 15 Регистрация: 15.01.2015

18.06.2015 19:14:17

Ребята подскажите код, есть два документа с одного макросом копируются данные и надо определить последнюю заполненную ячейку в другом документе в столбце А, чтобы в следующую пустую ячейку вставить данные. Таким образом чтобы данные во второй документ вставлялись последовательно в столбик.

Перейти

Сохранить в нужную папку

Gorf

Пользователь

Сообщений: 15 Регистрация: 15.01.2015

11.06.2015 17:03:02

Есть макрос, нужно сохранить в F:\Новая папка, а он сохраняет в диск С:\ или получалось на "Рабочий стол"
Подскажите где путь прописать? Спасибо!

Код

Sub Сохранить файл()
    On Error Resume Next    
    Const REPORTS_FOLDER = "Июнь\"   
    MkDir ThisWorkbook.Path & "\" & REPORTS_FOLDER
   
    ChDrive Left(ThisWorkbook.Path, 1): ChDir ThisWorkbook.Path & "\" & REPORTS_FOLDER
    Filename = Application.GetSaveAsFilename("отчет.xls", "Книга Excel (*.xls),", ,  )
  
    If VarType(Filename) = vbBoolean Then Exit Sub
    Err.Clear: ActiveSheet.Copy: DoEvents
    If Err Then Exit Sub   

    If ActiveWorkbook.Worksheets.Count = 1 And ActiveWorkbook.Path = "" Then
        
        ActiveWorkbook.SaveAs Filename, xlWorkbookNormal
        ActiveWorkbook.Close False
    End If
End Sub

Перейти

Искать номера из столбца Excel в теме почты (аутлука)

Gorf Пользователь Сообщений: 15 Регистрация: 15.01.2015	# 29.05.2015 18:58:01 Граждане! Нужно искать номера из столбца В в теме почты (аутлука) и вставлять тело письма в столбец G в соответствующую строку. Возможно ли это? Заранее спасибо.
	Перейти