Skip to main content
se añadieron 106 caracteres en el cuerpo
Origen Enlace
Carlos
  • 377
  • 3
  • 13

introducir la descripción de la imagen aquí

introducir la descripción de la imagen aquí

se añadieron 1615 caracteres en el cuerpo
Origen Enlace
Carlos
  • 377
  • 3
  • 13
Option Explicit
Dim nombreArray As String
Dim i As Integer
Dim x As Integer
Dim numero As Integer
Dim numfel As Integer
Dim nomcliente As String
Dim clienteDepurado As String


Sub Clientes2()

'#####################
Dim MiFecha As String
Dim mifecha1 As String
Dim mifecha2 As String
MiFecha = Date
'mifecha = Format(Now, "dd/MM/yyyy")
mifecha1 = DateAdd("d", 1, Date)
mifecha2 = DateAdd("d", 2, Date)

nomcliente = Application.InputBox("Dime un Cliente - Pon solo las 3 primeras letras")

clienteDepurado = Trim(LCase(nomcliente))

Select Case clienteDepurado

    Case Is = "nis"

        Dim niss(0 To 17) As String

        niss(0) = ""
        niss(1) = MiFecha
        niss(2) = ""
 niss(3) = ""
        niss(4) = "24658"
        niss(5) = "NISSAN MOTOR IBERICA"
        niss(6) = ""
        niss(7) = ""
        niss(8) = ""
        niss(9) = "15n"
        niss(10) = mifecha1
        niss(11) = ""
        niss(12) = ""
        niss(13) = ""
        niss(14) = ""
        niss(15) = ""
        niss(16) = "k"
        niss(17) = ""

        Call cogeDatos1(niss)
        End
        
End Select
End Sub
Sub cogeDatos1(nombreArray)

  For i = 0 To 17 Step 1
    
    ActiveCell.Offset(0, i).Value = nombreArray(i)
        
        
    Next i
    
    i = 0
    
End Sub
Option Explicit
Dim nombreArray As String
Dim i As Integer
Dim x As Integer
Dim numero As Integer
Dim numfel As Integer
Dim nomcliente As String
Dim clienteDepurado As String


Sub Clientes2()

'#####################
Dim MiFecha As String
Dim mifecha1 As String
Dim mifecha2 As String
MiFecha = Date
'mifecha = Format(Now, "dd/MM/yyyy")
mifecha1 = DateAdd("d", 1, Date)
mifecha2 = DateAdd("d", 2, Date)

nomcliente = Application.InputBox("Dime un Cliente - Pon solo las 3 primeras letras")

clienteDepurado = Trim(LCase(nomcliente))

Select Case clienteDepurado

    Case Is = "nis"

        Dim niss(0 To 17) As String

        niss(0) = ""
        niss(1) = MiFecha
        niss(2) = ""
 niss(3) = ""
        niss(4) = "24658"
        niss(5) = "NISSAN MOTOR IBERICA"
        niss(6) = ""
        niss(7) = ""
        niss(8) = ""
        niss(9) = "15n"
        niss(10) = mifecha1
        niss(11) = ""
        niss(12) = ""
        niss(13) = ""
        niss(14) = ""
        niss(15) = ""
        niss(16) = "k"
        niss(17) = ""

        Call cogeDatos1(niss)
        End
        
End Select
End Sub
Sub cogeDatos1(nombreArray)

  For i = 0 To 17 Step 1
    
    ActiveCell.Offset(0, i).Value = nombreArray(i)
        
        
    Next i
    
    i = 0
    
End Sub
Origen Enlace
Carlos
  • 377
  • 3
  • 13

vba macro Date - pone mal la fecha

A ver si alguien me puede ayudar, estoy con una macro que mete la fecha actual en un arrai, el problema es que cuando ejecuto y meto en una celda la posicion del arrray excel me pone una fecha con el mes invertido. Ejemplo hoy es dia 12/09/2019 pues en vez de ponerme este fecha me pone 09/12/2019. He probado esto, mifecha = Format(Now, "dd/MM/yyyy") meter la fecha en una variable en el formato que busco y luego meterla en el array, pero cuando ejecuto la macro me vuelbe a girar el dia y el mes... alguna idea?