pamelac

santiagomf respondió: Function letraColumna(ByVal nCol As Integer) As String Dim n1 As Integer Dim n2 As Integer Dim aux As String If nCol > 26 Then n2 = nCol n1 = 0 Do While n2 > 26 n1 = n1 + 1 n2 = n2 - 26 Loop aux = Chr$(n1 + 64) & Chr$(n2 + 64) Else aux = Chr$(nCol +...