JUNTAR CAMPOS PARA IMPRESSAO BASEADO EM COLUNAS

Citação:

:

 Dim var_Parc As String
    var_Parc = [Ô][Ô]
    Dim f As Integer
    With Grid_Parcelas
        For f = 1 To .Rows - 1
            .Col = 0
            .Row = f
            If .CellPicture = ImgMarcada Then
                If f = 1 Then
                    var_Parc = Format(.TextMatrix(.Row, 3), [Ô]00000[Ô]) & [Ô] / [Ô] & Format(.TextMatrix(.Row, 4), [Ô]00[Ô])
                ElseIf Right(var_Parc, 8) = Format(.TextMatrix(.Row, 3), [Ô]00000[Ô]) & [Ô] / [Ô] & Format(.TextMatrix(.Row, 4), [Ô]00[Ô]) Then
                    MsgBox [Ô]Tratar Repetido[Ô]
                Else
                    var_Parc = var_Parc & [Ô], [Ô] & Format(.TextMatrix(.Row, 3), [Ô]00000[Ô]) & [Ô] / [Ô] & Format(.TextMatrix(.Row, 4), [Ô]00[Ô])
                    If f = .Rows - 1 Then Exit For
                End If
            End If
       Next f
    End With