Подсчет строк и экспорт на основе критериев - PullRequest
Новая
       9

Подсчет строк и экспорт на основе критериев

0 голосов
/ 14 ноября 2018

Итак, у меня есть файл Excel, и я хочу экспортировать некоторые строки в другой файл Excel, моя проблема в том, что у меня есть строка, похожая на: 

1    
1    
1    
2    
2    
2    
3    
3    
3    
1   
1    
1

И я хочу экспортировать из первой строки с номером один в последнюю строку с номером 3, а после экспорта удалить те же строки.

Пока у меня есть это. 

Private Sub export2()
folha = exportform.Label14.Caption
On Error GoTo ErrHandler
Application.ScreenUpdating = False


Dim src As Workbook

' ABRIR EXCEL
Set src = Workbooks.Open("U:\Mecânica\Produção\OEE\OEE ( FULL LOG )\FRS\FRS_DADOS.xlsx", True, False)
WS_Count = src.Worksheets.Count
 For o = 1 To WS_Count
 src.Worksheets(o).Unprotect password:="registoOEE"
 Next o

lastsrc = src.Worksheets("DADOS").Range("A65536").End(xlUp).Row
last = Application.ThisWorkbook.Worksheets(folha).Range("A65536").End(xlUp).Row




Dim last, I As Integer
Dim turno As String

Sheets(folha).Select

For I = 2 To last
'If application.ThisWorkbook.Worksheets(folha).Cells(last, 61)














Next I




ErrHandler:
Application.EnableEvents = True
Application.ScreenUpdating = True







  For o = 1 To WS_Count
 src.Worksheets(o).Protect password:="registoOEE"
 Next o


  Application.DisplayAlerts = False 'IT WORKS TO DISABLE ALERT PROMPT

  'SAVES FILE USING THE VARIABLE BOOKNAME AS FILENAME
 src.Save

 Application.DisplayAlerts = True 'RESETS DISPLAY ALERTS

' CLOSE THE SOURCE FILE.
src.Close True             ' FALSE - DON'T SAVE THE SOURCE FILE.
Set src = Nothing


fim:
End Sub

Я отредактировал, чтобы вы могли видеть, какой код у меня уже есть, надеюсь, это поможет.

...