Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Visual Basic para Aplicaciones » Como convierto la última fila en mayúsculas?

Visual Basic para Aplicaciones - Como convierto la última fila en mayúsculas?

Life is soft - evento anual de software empresarial
Volver
Nuevo Tema
<<>>
 
Vista:
Imágen de perfil de Alexander

Como convierto la última fila en mayúsculas?

Publicado por Alexander (3 intervenciones) el 30/08/2017 18:25:17
Tengo una base de datos en excel, con sus registros ordenados por campos. debo seleccionar la última fila (la cual es variable, obviamente) y convertirla en mayúsculas. También me serviría la solución de escribir siempre en mayúsculas. Agradecería su ayuda
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana
Val: 1.134
Oro
Ha mantenido su posición en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

Como convierto la última fila en mayúsculas?

Publicado por Antoni Masana (502 intervenciones) el 31/08/2017 06:49:29
Puedes subir un ejemplo?

saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Alexander

Como convierto la última fila en mayúsculas?

Publicado por Alexander (3 intervenciones) el 31/08/2017 16:29:10
Estoy haciendo una pregunta a ver si pueden ayudarme. Hasta ahora tengo unas líneas en código VBA que hace otras cosas, pero además de esto quisiera incluir en esa misma rutina un código para convertir en mayúsculas la última fila que el usuario escriba, esa es la ayuda que pido...

Anexo el código comentado,...pero no se a que se refiere con un ejemplo.

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
Sub OrdenarYguardarALUMNAS()
    ActiveSheet.Cells(Rows.Count, "H").End(xlUp).Select
    Selection.Copy
    Sheets("Datos PAGOS").Select
    ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Offset(1, 0).Select
    ActiveSheet.Paste
    ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Offset(0, 1).Select
    Sheets("Datos REP (1)").Select
    ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Offset(1, 0).Select
    ActiveSheet.Paste
    ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Offset(0, 1).Select
    Sheets("Datos ALUMNAS").Select
    Application.CutCopyMode = False
    Range("B5:Z700").Select
    ActiveWorkbook.Worksheets("Datos ALUMNAS").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Datos ALUMNAS").Sort.SortFields.Add Key:=Range( _
        "D5:D700"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    ActiveWorkbook.Worksheets("Datos ALUMNAS").Sort.SortFields.Add Key:=Range( _
        "E5:E700"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    ActiveWorkbook.Worksheets("Datos ALUMNAS").Sort.SortFields.Add Key:=Range( _
        "B5:B700"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    ActiveWorkbook.Worksheets("Datos ALUMNAS").Sort.SortFields.Add Key:=Range( _
        "C5:C700"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Datos ALUMNAS").Sort
        .SetRange Range("B5:Z700")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
 ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Offset(1, 0).Select
 ActiveWorkbook.Save
End Sub

Saludos,
AC
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Antoni Masana
Val: 1.134
Oro
Ha mantenido su posición en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

Como convierto la última fila en mayúsculas?

Publicado por Antoni Masana (502 intervenciones) el 31/08/2017 19:26:19
Y donde se supone que debo probar el código para saber que hace y que debe hacer?

Adivinar se me da muy mal.

Entiende que con lo que envías no se que hacer porque no se como tienes tus datos y cuales exactamente quieres modificar.
Con la información que das solo quedan dos opciones echarte la bulla o la broca o simplemente pasar que es lo que las otras 73 personas que han visto tu mensaje han hecho.
Resulta bastante cansino tener que estar diciendo que se envíe mas información porque no sabemos en que estas trabajando.
Y otro detalle no menos importante: cuando se ve el código todo alineado a la izquierda dan ganas de salir corriendo.
Un ejemplo: esto es lo que has enviado

Private Sub Listado(accion)
if accion=1 then
For a=1 to 2
Call Imprime
Next
End if
End Sub

Yo, como otra gente ni lo miramos, esto es una aberración, hay que hacer un sobre esfuerzo para entenderlo y solo son 7 líneas

1
2
3
4
5
6
7
Private Sub Listado(accion)
    If accion=1 then
        For a=1 to 2
            Call Imprime
        Next
    End if
End Sub

Esto es otra cosa.

Si subes la información necesaria y su correspondiente explicación y que en un solo POST este todo, podre o podremos ayudar y si prefieres enviarlo a mi correo con mucho gusto te ayudare.

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar