antares18

Te digo yo que es una tontería, pero mira, aquí =BUSCARV(A1;HOJA1!A1:E2;5;FALSO), en vez de falso pon verdadero

Si quieres me pasas el libro y lo hago en un momento. [email protected] Si se elimina del registro del listbox, ¿se elimina también de la hoja de excel?

=IF(ENTERO(((T1-K1)/30))=6;"VENCIDO";"OK") La función entero no se como la pondrá, supongo que pone integer

La función tal cual la foto. El Valor_1000 son los que van del 0 a >1.000 El Valor_10.000 son los que van de 0 a >50.000 Public Function camion(Valor_1000 As Double, Valor_10000 As Double) As String Select Case (Valor_10000) Case Is <= 10000 If...

Lo he hecho de otra manera. Cópialo todo. Es una sub tendrás que cambiar los datos a mano. Solo tendrás que cambiar las variables Public Sub colocar_datos() Dim hoja_origen As Worksheet Set hoja_origen = Hoja1 Dim hoja_destino As Worksheet Set...

Intenta esto a ver si funciona Range("F22" ).Select Range("F22"). offset(1,0)=ActiveSheet. Paste ->Esto lo pone en la celda de abajo

La verdad me ha costao pero lo he conseguido 'BOTÓN Private Sub CommandButton1_Click() Dim rango As Range Set rango = Range("B3:N40") '--->El rango que quieres Call color_azul(rango) End Sub SUB Private Sub color_azul(rango As Range) Dim i As Integer...

Te pongo el de arriba del todo donde está has Pagado Todo la query la pones en un string y pones "vCartera, Factura,' "+A1+" ','S') has Pagado. Ponlo así a ver que tal

Cuando le des para quitar el userform2 en vez de poner unload userform2 pon userform2. visible =false. Así los datos no se borrarán. Cuando acabes de darle al botón es cuando le das a unload userform2 Private Sub CommandButton1_Click() If...

Has de utilizar buscarv(celda de A1, el del listado largo), rango de los datos de abajo, columna 2 Ej A B C D 1 A1 A1 COD1 2 A1 A2 COD2 3 A2 A3 COD3 En mi ejemplo pondrías buscarv(A1;C1:D3;2). El A1 es la celda, no el valor El rango, el C1:D3 ha de...