santiagomf

Te he preparado estas dos funciones que creo que están bastante claras para que puedas ajustarlas a tus necesidades: Option Explicit Const nColCentro = 1 ' Columna en la que se encuentra el centro Const nColCIF = 2 ' Columna en la que se encuentra el...

Para hacer lo que quieres tienes que crear primero la base de datos y la tabla que contendrá los datos. Lo más sencillo es que la crees con Access, pero también se puede hacer con código VB. Supongamos que la tienes ya creada. En este caso, lo que...

El código que suelo usar yo para cargar ficheros de texto es algo parecido al que sigue: Option Compare Database Option Explicit Sub cargarFicheroEnTabla1(ByVal nomFich As String) Const nomTabla = "nombreTabla1" Dim nf As Integer Dim linea As String...

Te he preparado esta macro que creo que te servirá (al menos para ir ajustándola a tus necesidades): Option Explicit Const nomPagina = "Hoja1" Sub agregarResultadoPartida() Dim nombre1 As String ' Nombre del primer jugador Dim nombre2 As String '...

Prueba con este código: Sub cambiarColor(ByVal valorCelda As String) Const color0 = 0 ' Color de fondo que tendrán las celdas si no aparece ningun de los dos textos Const color1 = 3 ' Color de fondo de las celdas si aparece el primer texto Const...

Supongamos que la celda con la fecha en formato "dia/mes" sea la B1 y la celda que contiene la fecha que vas a modificar sea A1. Tienes 2 formas sencillas de hacerlo: - B1 contiene un texto que indica el día/mes de la fecha que aparece en A1 - B1...

Prueba con este código ajustándolo a tus necesidades: Sub ponerValor0(ByRef miRango As Range) Dim i As Long Dim j As Long For i = 1 To miRango.SpecialCells(xlCellTypeLastCell).Row For j = 1 To miRango.SpecialCells(xlCellTypeLastCell).Column...

Si el valor de la celda es una fecha y se ve así porque tiene ese formato, entonces puedes obtener el mes mediante la función "month": if month(A1) = mesBuscado then .... Si el valor es un texto, supongo que es ese el caso, lo que tienes que tener en...

Supongamos que quieres poner el código en A2 y que el nombre/marca y proveedor están en B2, C2 y D2 En A2 tendrás que poner la siguiente fórmula: =izquierda(B2;2) & "-" & izquierda(C2;2) & "-" & izquierda(D2;2) Puedes ver que he puesto los guiones de...

Te dejo dos formas de hacerlo. Creo que lo que buscas es la primera, pero la segunda queda mucho más bonita (te dibuja cada tabla en 5 columnas)... y también más complicada. El código de la primera sería este: Sub generarTablasMultiplicar() Dim i As...