Pergunta : Valor da data do formato na coluna

Olá! os peritos,

I gostariam de pedir a ajuda dos peritos para adicionar uma caraterística adicional no certificado unido. Como se certificar do valor de dados da pasta em Column_B é sempre com formato de data (dd-mmm)?. Os peritos da esperança podem ajudar-me. Uniu a parcela do código para o perusal dos peritos.
class= > " desobstruído " do
> do " codeSnippet " do class= do
class= " lineNumbers " do
class= do
1:
2:
3:
4:
5:
6:
7:
8:
>Set notpretty " do class= " do id= " codeSnippet779010 do
           
class= do

Resposta : Valor da data do formato na coluna

Por que você tem todo o material da ativação?

I've não começ um sentimento que pudesse mucking acima seu PasteSpecial, talvez causando lá ser nada colar realmente.

Você pôde igualmente querer considerar a ordem que você está fazendo coisas.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
Opção explícita

Copy_Paste3 secundários ()
WB não ofuscante como o manual de instruções
objFileDLG não ofuscante como Office.FileDialog
strFilePath não ofuscante, lcTargetCell
intSrcRows não ofuscantes como o inteiro
intTgtRows não ofuscantes como o inteiro

    ChDir “D:\Data\”
    Ajustar o objFileDLG = o Application.FileDialog (o msoFileDialogFilePicker)
    Escurecer o copyRange como a escala

    intTgtRows = 2

    Fazer quando verdadeiro
        strFilePath = ""
        Com objFileDLG
            . Filters.Add “Excel arquiva”, “*.xls”, 1
            .FilterIndex = 1
            .AllowMultiSelect = falso
            . O título = “seleciona o manual de instruções para copiar de”
            Se. Mostrar () <> 0 então
                strFilePath = .SelectedItems (1)
            Terminar se
        Terminar com

        Se a guarnição (strFilePath) = "" retira então fazer

        Ajustar WB = Workbooks.Open (o strFilePath)

        intSrcRows = WB. Folhas (1). Pilhas (Cells.Rows.Count, “A”). Extremidade (xlUp). Fileira

        Ajustar o copyRange = a WB. Folhas (1). Escala (“B6: B” & intSrcRows)

        Ajustar o copyRange = a união (copyRange, copyRange.Offset (, 4), copyRange.Offset (, 6). Resize (, 6))

        copyRange.Copy

        Ajustam o lcTargetCell = o ThisWorkbook.Worksheets (2). Escala (“A” & Rows.Count). Extremidade (xlUp). Offset (1)

        pasta de lcTargetCell.PasteSpecial: =xlPasteValuesAndNumberFormats, operação: = _
                                  xlNone, SkipBlanks: O =False, transpor: =False

        ThisWorkbook.Worksheets (2). Escala (“B: B”) .NumberFormat = “dd-mmm”

        Application.CutCopyMode = falso
        
        WB. Fim
        
        Ajustar WB = nada

        intTgtRows = intTgtRows + intSrcRows - 1
        
    Laço
    'novas linhas

    No resumo do erro em seguida

    ThisWorkbook.Worksheets (1). Colunas (1) .SpecialCells (xlBlanks) .EntireRow.Delete
Submarino da extremidade
Outras soluções  
 
programming4us programming4us