vikmar

vikmar

Excel Avanzado Visual Basic for Application Visual Basic Net
 15,1K puntos  Baja California, México @vikmar desde - visto

Actividad pública reciente

Ha respondido en

Contar filas en macro

sub cuentarenglones dim renglones as integer dim col as integer ' Aqui esta la columna que quieres contar col=1 renglones=Cells(65536, col).End(xlUp).Row 'renglones tiene el ultimo renglon con datos end sub Saludos y no olvides de cerrar la pregunta...
Ha respondido en

Mes anterior en un combobox

Seria con esta función =MONTH(TODAY())-1 Y ya en el formato de numero Cambiar a custom ("mmm") Saludos y no olvides cerrar la pregunta, una vez que no tengas dudas
Ha respondido en

Elimina Hoja sin confirmación

Para quitar la confirmación Application.DisplayAlerts = False Para volver a activar la confirmacion Application.DisplayAlerts = True Saludos y no olvides de cerrar la pregunta
Ha respondido en

Macro que se ejecuta con SI y NO

Aquí esta tu código, te faltaba la condición else y mover el endif después de estas condicionantes. Saludos y recuerda de calificar Private Sub CommandButton8_Click() Dim Mensaje, Estilo, Título, Respuesta As String fil = ActiveCell.Row Mensaje =...
Ha respondido en

Envío de fichero excel en adjunto por Outlook

La instrucción que buscas es . Attachment. Add myfile donde myfile = a la ruta completa mas el nombre del archivo que quieres colocar como adjunto, ejemplo c:\test.xls
Ha respondido en

Macro que borra diplicados

Sustituye If (Cells(x, z).Value = Cells(y, z).Value) Then Cells(y, z). EntireRow. Clear Por If (Cells(x, z).Value = Cells(y, z).Value) Then Cells(y, z).value=""
Ha respondido en

Consulta sobre fórmula

=if(k6="","",BUSCARV(K6;FORMULAS!$B$18:$C$25;2)) Así solamente busca si la celda K6 tiene algo, sino, coloca nada en el resultado de la fórmula Saludos y no olvides de cerrar la pregunta
Ha respondido en

Simplificar fórmulas

Puedes utilizar el AND Por ejemplo =IF(AND(A1>6,A1<9),"Dentro del rango","Fuera del rango") El resultado seria si A1 esta entre 6 y 9 te dará "Dentro del rango" Otro valor te dará "Fuera del rango" Espero que esto te ayude y no olvides cerrar la pregunta
Ha respondido en

Fecha y hora

Esta pregunta estuvo interesante, busque todas las funciones de tiempo, y me seguía marcando el error y es que Excel por default usa el sistema a partir del 1 de enero de 1900 entonces para que no te marque error tienes que seleccionar en Tools,...
Ha respondido en

Funcio sumar si

A lo mejor no te llegó la otra respuesta porque la pregunta está repetida En inglés es =COUNTIF(A1:A1200,">90")-COUNTIF(A1:A1200,">120") me imagino que en español es =contar.si(A1:A1200,">90")-contar.si(A2:A1200,">120") Un detalle es que te va a...
Ha respondido en

Quiero sumar una columna a otro registro que lleva 200 días. Luego he de hacer 1 conteo.

En inglés es =COUNTIF(A1:A1200,">90")-COUNTIF(A1:A1200,">120") me imagino que en español es =contar.si(A1:A1200,">90")-contar.si(A2:A1200,">120") Un detalle es que te va a sumar si es más de 90, es decir no incluye 90 sino 91,92, 93.. etc, y lo mismo...
Ha respondido en

Guardar archivo de Word en excel con macro

' Aqui está el código y no olvides de cerrar la pregunta ' saludos Sub abrirArchivoWord() 'rutina donde pueda abrir un archivo de Word '(el nombre de archivo saldría de una celda concatenada) Dim wdApp As Word.Application, wdDoc As Word.Document Dim...
Ha respondido en

Como evitar el copiado de un archivo

Si realmente necesitas que no abran tu archivo no puedes confiar en excel y vba, porque cualquier usuario de nivel medio ha avanzado lo puede abrir, así tengas contraseña por todos lados, excel 2007 mejoró la seguridad pero todavía no es muy...
Ha respondido en

Calcular MODA

Lo que yo haría es asignar un valor numérico a cada valor de letra por ejemplo, si coloco mis letras en las celdas A1:A13 y la fórmula =IF(A1="A",10,IF(A1="B",11,IF(A1="C",12,13))) En las celdas continuas a mis datos en B1:b13 A B A 10 B 11 C 12 A 10...
Ha respondido en

Ejecutar un macros unicamente en un determinado PC

'Este sería el código para obtener el nombre ' de la computadora y del usuario ' al parecer el grupo de trabajo es un poco más complicado ' pero si lo ocupas lo busco 'Esto seria al inicio del módulo Private Declare Function GetComputerName Lib...
Ha respondido en

Plantilla en Outlook para crear modelo de mail.Al enviarlo en correo el destinatario lo recibe vacío

En outlook estoy más fuerte en macros, pero vemos como te puedo ayudar según lo que se, debes de pasar la plantilla de word a la plantilla de outllook pero necesitaría ver la plantilla de word Me la puedes enviar a mi correo [email protected]

Experiencia

Excel Avanzado
Visual Basic for Application
Visual Basic Net