Las dobles comillas no me fucionan
Publicado por Miguel (16 intervenciones) el 06/12/2016 00:09:43
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim Cadena20 As String, Cadena21 As String, Cadena22 As String, Cadena23 As String, UltLinea As Integer, tl As Integer
Sheets(NomProyecto).Select ' Para entrar formula de grado de partida
If Cells(20, "S") = "" Then
UltLinea = Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To UltLineaCadena20 = "T" & i
Cadena21 = letraColumDescripcion & i
tl = i + 1
Cadena22 = "S" & tl
1 'Cells(i, "S").Formula = "=IF(And(" + Cadena20 & "=""""," + Cadena21 + "="""",((""""<=0)),0,if(And(" + (Cadena22 - 1) + "+""""),""""," + Cadena20 + "))"
2 'Cells(i, "S").Formula = "=IF(And(" & Cadena20 & "=" & Chr$(34) & Chr$(34) & "," & Cadena21 & "=" & Chr$(34) & Chr$(34) & ",((" & Chr$(34) & Chr$(34) & "<=0)),0,if(And(" & (Cadena22 - 1) & "+" & Chr$(34) & Chr$(34) & ")," & Chr$(34) & Chr$(34) & "," & Cadena20 & "))"
3 Cells(i, "S").Formula = "=IF(And(" & Cadena20 & "=" & Chr$(34) & "," & Cadena21 & "=" & Chr$(34) & ",((" & Chr$(34) & "<=0)),0,if(And(" & (Cadena22 - 1) & "+" & Chr$(34) & ")," & Chr$(34) & "," & Cadena20 & "))"
Cells(no_fila, "T") = GradoPartida
Next i
End If
Las números 1,2 y 3 no están esas son las pruebas que he realizado y no llego, por favor si alguien me puede ayudar
Valora esta pregunta
0
