Send specific data from one sheet to another when a condition is met,

L

leobrice

New Member
Joined
Jun 14, 2024
Messages
37
Office Version
  1. 2013
Platform
  1. Windows
Best regards friends of MREXCEL, thank you for accepting my subscription
I have a file that I want to automate 1 processes, I explain:
1. The COSTOS DE SERVICIOS Sheet must send the information contained in row 62 to the COSTOS PRODUCTOS NACIONALES sheet in the first available row: The information must be sent by placing YES in cell (E61) of Service Costs
The submitted information should be copied as follows:
COSTOS DE SERVICIOS (A62) = COSTOS PRODUCTOS NACIONALES (A)
COSTOS DE SERVICIOS (B62) = COSTOS PRODUCTOS NACIONALES (C)
COSTOS DE SERVICIOS (C62) = COSTOS PRODUCTOS NACIONALES (D)
COSTOS DE SERVICIOS (D62) = COSTOS PRODUCTOS NACIONALES (E)
Send specific data from one sheet to another when a condition is met,

The information on COSTOS PRODUCTOS NACIONALES (E) should be updated automatically if the COSTS OF SERVICES vary.

Very grateful in advance for your valuable help.


EXAMPLE.xlsm
ABCDE
1Piscinas Aqualux S.A.
2COSTOS DE SERVICIOS
3NOMBRE SERVICIO PRESTADO:UNIDAD DE MEDIDACANTIDAD DE PRODUCTO HORASCOSTO UNITARIO COMPONENTETOTAL COSTO
4LIMPIEZA DE PISCINA
5COMPONENTES DEL SERVICIOUSUS
6PRODUCTOS Y SERVICIOS
7ACETONAfrasco40010,004.000,00
8ALCOHOLlitro110,0010,00
9BOLSAS PLASTICAS 5 LITROSunidad610,0060,00
10CEMENTOkilo110,0010,00
11CLOROlitro1210,00120,00
12 10,000,00
13 10,000,00
14 10,000,00
15 10,000,00
16 10,000,00
17 10,000,00
18 10,000,00
19 10,000,00
20 10,000,00
21 10,000,00
22 10,000,00
23 10,000,00
24 10,000,00
25 10,000,00
26 10,000,00
27 10,000,00
28 10,000,00
29 10,000,00
30 10,000,00
31 10,000,00
32 10,000,00
33 10,000,00
34 10,000,00
35 10,000,00
36 10,000,00
37TOTAL COSTOS DE PRODUCTOS Y SERVICIOS PARA LIMPIEZA DE PISCINA4.200,00
38HORAS HOMBRE
39LEONARDO BRICEÑOHoras Hombre2010,00200,00
40Horas Hombre10,000,00
41Horas Hombre10,000,00
42Horas Hombre10,000,00
43Horas Hombre10,000,00
44Horas Hombre10,000,00
45Horas Hombre10,000,00
46Horas Hombre10,000,00
47Horas Hombre10,000,00
48Horas Hombre10,000,00
49Horas Hombre10,000,00
50Horas Hombre10,000,00
51Horas Hombre10,000,00
52Horas Hombre10,000,00
53Horas Hombre10,000,00
54Horas Hombre10,000,00
55Horas Hombre10,000,00
56Horas Hombre10,000,00
57Horas Hombre10,000,00
58Horas Hombre10,000,00
59TOTAL COSTOS DE HORAS HOMBRE PARA LIMPIEZA DE PISCINA200,00
60TOTAL GENERAL LIMPIEZA DE PISCINA4.400,00
61CONFIRM TO PROCESS (YES/NO)YES
62LIMPIEZA DE PISCINAServicio14.400,00
COSTOS DE SERVICIOS
Cell Formulas
RangeFormula
A1A1='INFORMACION GENERAL'!D5
B12:B36B12=IFERROR(VLOOKUP(A12,#REF!,3,0)," ")
E39:E58,E7:E36E7=C7*D7
A37A37=CONCATENATE("TOTAL COSTOS DE PRODUCTOS Y SERVICIOS PARA ",A4)
E37E37=SUM(E7:E36)
A59A59=CONCATENATE("TOTAL COSTOS DE HORAS HOMBRE PARA ",A4)
E59E59=SUM(E39:E58)
A60A60=CONCATENATE("TOTAL GENERAL ",A4)
E60E60=E37+E59
A62A62=A4
E62E62=E60
Cells with Conditional Formatting
CellConditionCell FormatStop If True
E61Cell Value="YES"textNO
E61Cell Value="NO"textNO
Cells with Data Validation
CellAllowCriteria
A39:A58List=HORAS_HOMBRE
A7List=PRECIOS_PRODUCTOS
A8:A11Custom=CONTAR.SI($A$5:$A$10000;A8)<=1
A12:A36List=PRECIOS_PRODUCTOS




EXAMPLE.xlsm
ABCDEFG
1Piscinas Aqualux S.A.
2COSTOS DE PRODUCTOS Y SERVICIOS NACIONALES
3PRODUCTO / SERVICIONACIONALUNIDAD DE MEDIDACANTIDAD DE PRODUCTOMONTO TOTAL DE LA COMPRACOSTO PRODUCTO UNITARIO
4U$u$
5ACETONANACIONALFrasco1.000,00125.000,00125,00por Frasco
6AEROSOLNACIONALFrasco10,0010.000,001.000,00por Frasco
7ALCOHOLNACIONALLitro2.000,00250.000,00125,00por Litro
8BOLSAS PLASTICAS 5 LITROSNACIONALPaquete100,0045.000,00450,00por Paquete
9CEMENTONACIONALKilo12,002.600,00216,67por Kilo
10CLORONACIONALGalón100,00325.000,003.250,00por Galón
11CUADRADO 10NACIONALEnvase1.500,00360.000,00240,00por Envase
12CUADRADO 11NACIONALEnvase20.000,00650,000,03por Envase
13CUADRADO 12NACIONALEnvase200,0010.000,0050,00por Envase
14CUADRADO 13NACIONALEnvase150,00140.000,00933,33por Envase
15CUADRADO 14NACIONALEnvase200,00250.000,001.250,00por Envase
16CUADRADO 15NACIONALCaja1.500,00350.000,00233,33por Caja
17PASTILLAS 4NACIONALEnvase5.400,00850,000,16por Envase
18CUADRADO 4NACIONALGalón200,008.500,0042,50por Galón
19CUADRADO 5NACIONALLata 450 ml650,001.350,002,08por Lata 450 ml
20CUADRADO 6NACIONALBolsa de 2 kilos2.000,00100.000,0050,00por Bolsa de 2 kilos
21CUADRADO 7NACIONALBolsa de 1,5 kilos200,00120.000,00600,00por Bolsa de 1,5 kilos
22CUADRADO 8NACIONALEnvase1.500,00250.000,00166,67por Envase
23CUADRADO 9NACIONALEnvase3.000,00310.500,00103,50por Envase
24CUADRADRO 1NACIONALBulto6.500,00450,000,07por Bulto
25CUADRADRO 2NACIONALBolsa de 900 gramos1.000,007.540,007,54por Bolsa de 900 gramos
26CUBO AMARILLONACIONALCaja2.500,00175,000,07por Caja
27CUBO AZULNACIONALPaquete1.200,001.450,001,21por Paquete
28CUBO VERDENACIONALBolsa1.500,0025.000,0016,67por Bolsa
29CUBO VIOLETANACIONALPaquete1.600,002.560,001,60por Paquete
30CUBOS ROJOSNACIONALBulto1.000,0011.300,0011,30por Bulto
31DESINFECTANTENACIONALLitro1,0055.000,0055.000,00por Litro
32DESODORANTENACIONALCaja350,00890,002,54por Caja
33INSECTICIDANACIONALLata 450 ml100,001.275,0012,75por Lata 450 ml
34JABON EN POLVONACIONALKilo100,00387.000,003.870,00por Kilo
35JABON LIQUIDONACIONALLitro65,00100.000,001.538,46por Litro
36LUBRICANTENACIONALKilo1.254,0020.000,0015,95por Kilo
37NEUTRALIZADORNACIONALPote200,001.600,008,00por Pote
38PASTILLAS ANTISEPTICASNACIONALCaja120,00154.000,001.283,33por Caja
39SELLADORNACIONALPaquete12,00120.000,0010.000,00por Paquete
40SILICONENACIONALFrasco5,0017.234,003.446,80por Frasco
41YESONACIONALKilo100,00200.000,002.000,00por Kilo
42LIMPIADOR VERDENACIONALEnvase120,001.650,0013,75por Envase
43LIMPIADOR ROJONACIONALCaja100,00255.000,002.550,00por Caja
44LIMPIADOR AMARILLONACIONALKilo1.200,00475.800,00396,50por Kilo
45LIMPIADOR ROSADONACIONALKilo675,001.275.000,001.888,89por Kilo
46LIMPIADOR AZULNACIONALBolsa1.200,00650.000,00541,67por Bolsa
47LIONACIONALKilo54,00145.000,002.685,19por Kilo
48LIMPIADOR TRANSPARENTENACIONALKilo2.500,00875.000,00350,00por Kilo
49LIMPIEZA DE PISCINANACIONALServicio1,004.400,004.400,00por Servicio
50NACIONAL0,000
51NACIONAL0,000
52NACIONAL0,000
53NACIONAL0,000
54NACIONAL0,000
55NACIONAL0,000
COSTOS PRODUCTOS NACIONALES
Cell Formulas
RangeFormula
A1A1='INFORMACION GENERAL'!D5
F5:F55F5=IFERROR(E5/D5,0)
G5:G55G5=C5
Cells with Conditional Formatting
CellConditionCell FormatStop If True
G5:G10000Cell Value=0textNO
Cells with Data Validation
CellAllowCriteria
E5:E55Any value
A5:B10000Custom=CONTAR.SI($A$5:$A$10000;A5)<=1
C5:C10000List=UNIDADES




This is the VBA code that I used, but don´t work.



Sub EnviarDatosCostosDeServiciosACostosProductosNacionales()

Application.ScreenUpdating = False



Dim ult, ult1 As Long

Dim rng As Range

ult2 = Sheets("COSTOS DE SERVICIOS").Range("F" & Rows.Count).End(xlUp).Row

ult3 = Sheets("COSTOS DE SERVICIOS").Range("G" & Rows.Count).End(xlUp).Row

ult4 = Sheets("COSTOS DE SERVICIOS").Range("H" & Rows.Count).End(xlUp).Row

ult6 = Sheets("COSTOS DE SERVICIOS").Range("I" & Rows.Count).End(xlUp).Row



ult = Sheets("COSTOS PRODUCTOS NACIONALES").Range("A" & Rows.Count).End(xlUp).Row + 1

ult1 = Sheets("COSTOS PRODUCTOS NACIONALES").Range("C" & Rows.Count).End(xlUp).Row + 1

ult5 = Sheets("COSTOS PRODUCTOS NACIONALES").Range("D" & Rows.Count).End(xlUp).Row + 1

ult7 = Sheets("COSTOS PRODUCTOS NACIONALES").Range("E" & Rows.Count).End(xlUp).Row + 1



Application.ScreenUpdating = False

Sheets("COSTOS PRODUCTOS NACIONALES").Range("E" & ult1) = Sheets("COSTOS DE SERVICIOS").Range("E" & ult4).Value

Sheets("COSTOS PRODUCTOS NACIONALES").Range("D" & ult1) = Sheets("COSTOS DE SERVICIOS").Range("D" & ult4).Value

Sheets("COSTOS PRODUCTOS NACIONALES").Range("C" & ult1) = Sheets("COSTOS DE SERVICIOS").Range("C" & ult3).Value

Sheets("COSTOS PRODUCTOS NACIONALES").Range("A" & ult1) = Sheets("COSTOS DE SERVICIOS").Range("A" & ult2).Value



Sheets("COSTOS PRODUCTOS NACIONALES").Select



MsgBox ("SE HA ENVIADO AL MODULO PRECIOS PRODUCTOS Y SERVICIOS LA INFORMACIÓN DE ESTE PRODUCTO O SERVICIO" & Chr(13) & _

"POR FAVOR COMPLETE LA INFORMACIÓN DE ESTE PRODUCTO O SERVICIO " & Chr(13) & _

"OPERACIÓN REALIZADA SATISFACTORIAMENTE"), vbInformation, "CALCULADORA DE PRECIOS Y COSTOS"







Sheets("COSTOS PRODUCTOS NACIONALES").Range("E" & ult1).Select



End Sub



Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Row = 62 Then

If Target.Address Like "$D$*" Then

If Range("D" & Target.Row) <> 0 Then

Application.ScreenUpdating = False

Call EnviarDatosCostosDeServiciosACostosProductosNacionales

End If

End If

End If



'Dim prod$, ufo&, ufd&

Dim pro_d As Range

Dim rDependents As Range



uf = Range("C" & Rows.Count).End(xlUp).Row

'prod = TempCombo

prod = Range("A" & Target.Row).Value



If Application.Intersect(Target, Range("B1:B" & uf)) Is Nothing Then

Exit Sub

End If



If Worksheets("COSTOS DE SERVICIOS").Range("D" & Target.Row).Value = SI Then

With Sheets("COSTOS PRODUCTOS NACIONALES")

ufd = .Range("A" & Rows.Count).End(xlUp).Row

Set pro_d = .Range("A62:A" & ufd).Find(prod)

pro_d.Offset(, 1) = Worksheets("COSTOS DE SERVICIOS").Range("D" & Target.Row).Value

End With

End If





End Sub
 

Excel Facts

Last used cell?
Press Ctrl+End to move to what Excel thinks is the last used cell.
Sort by date Sort by votes
Copy and paste this macro into the worksheet code module. Do the following: right click the tab name for your COSTOS DE SERVICIOS sheet and click 'View Code'. Paste the macro into the empty code window that opens up. Close the code window to return to your sheet. Enter YES in cell E61 and press the ENTER key.
VBA Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.CountLarge > 1 Then Exit Sub
    If Intersect(Target, Range("E61")) Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    If Target = "YES" Then
        With Sheets("COSTOS PRODUCTOS NACIONALES")
            .Cells(.Rows.Count, "A").End(xlUp).Offset(1) = Target.Offset(1, -4)
            .Cells(.Rows.Count, "C").End(xlUp).Offset(1) = Target.Offset(1, -3)
            .Cells(.Rows.Count, "D").End(xlUp).Offset(1) = Target.Offset(1, -2)
            .Cells(.Rows.Count, "E").End(xlUp).Offset(1) = Target.Offset(1)
        End With
    End If
    Application.ScreenUpdating = True
End Sub
 
Upvote 0
mumps said:
Copie y pegue esta macro en el módulo de código de la hoja de trabajo. Haga lo siguiente: haga clic derecho en el nombre de la pestaña de su hoja de COSTOS DE SERVICIOS y haga clic en 'Ver código'. Pegue la macro en la ventana de código vacía que se abre. Cierre la ventana del código para regresar a su hoja. Ingrese SÍ en la celda E61 y presione la tecla ENTER.
[CÓDIGO=vba]
Hoja de trabajo secundaria privada_Cambio (objetivo por valor como rango)
Si Target.CountLarge > 1, entonces salga de Sub
Si Intersect(Target, Range("E61")) no es nada, entonces salga de Sub
Aplicación.ScreenUpdating = Falso
Si objetivo = "SÍ" entonces
Con Hojas("COSTOS PRODUCTOS NACIONALES")
.Cells(.Rows.Count, "A").End(xlUp).Offset(1) = Target.Offset(1, -4)
.Cells(.Rows.Count, "C").End(xlUp).Offset(1) = Target.Offset(1, -3)
.Cells(.Rows.Count, "D").End(xlUp).Offset(1) = Target.Offset(1, -2)
.Cells(.Rows.Count, "E").End(xlUp).Offset(1) = Target.Offset(1)
Terminar con
Terminara si
Aplicación.ScreenUpdating = Verdadero
Subtítulo final
[/CÓDIGO]
Click to expand...
mumps said:
Copie y pegue esta macro en el módulo de código de la hoja de trabajo. Haga lo siguiente: haga clic derecho en el nombre de la pestaña de su hoja de COSTOS DE SERVICIOS y haga clic en 'Ver código'. Pegue la macro en la ventana de código vacía que se abre. Cierre la ventana del código para regresar a su hoja. Ingrese SÍ en la celda E61 y presione la tecla ENTER.
[CÓDIGO=vba]
Hoja de trabajo secundaria privada_Cambio (objetivo por valor como rango)
Si Target.CountLarge > 1, entonces salga de Sub
Si Intersect(Target, Range("E61")) no es nada, entonces salga de Sub
Aplicación.ScreenUpdating = Falso
Si objetivo = "SÍ" entonces
Con Hojas("COSTOS PRODUCTOS NACIONALES")
.Cells(.Rows.Count, "A").End(xlUp).Offset(1) = Target.Offset(1, -4)
.Cells(.Rows.Count, "C").End(xlUp).Offset(1) = Target.Offset(1, -3)
.Cells(.Rows.Count, "D").End(xlUp).Offset(1) = Target.Offset(1, -2)
.Cells(.Rows.Count, "E").End(xlUp).Offset(1) = Target.Offset(1)
Terminar con
Terminara si
Aplicación.ScreenUpdating = Verdadero
Subtítulo final
[/CÓDIGO]
Click to expand...
Gracias MUMPS, el código VBA envía la información perfectamente como deseo, sin embargo, no actualiza el valor del costo del servicio en la hoja de COSTO PRODUCTO NACIONAL, como había indicado.

Por ejemplo, hay un costo total inicial, pero luego algunos artículos aumentan de precio y actualizo los precios. En COSTOS DE SERVICIO, E62 se actualiza automáticamente si los valores anteriores cambian, pero la columna E de COSTO PRODUCTO NACIONAL no se actualiza, mantiene el valor inicial enviado.

Con ese cambio quedará 100% solucionado.

Gracias muy amable.
 
Upvote 0
leobrice said:
Gracias MUMPS, el código VBA envía la información perfectamente como deseo, sin embargo, no actualiza el valor del costo del servicio en la hoja de COSTO PRODUCTO NACIONAL, como había indicado.

Por ejemplo, hay un costo total inicial, pero luego algunos artículos aumentan de precio y actualizo los precios. En COSTOS DE SERVICIO, E62 se actualiza automáticamente si los valores anteriores cambian, pero la columna E de COSTO PRODUCTO NACIONAL no se actualiza, mantiene el valor inicial enviado.

Con ese cambio quedará 100% solucionado.

Gracias muy amable.
Click to expand...
The update can be done based on the product name (column A) or the sheet name, which will be the same name of the product
 
Upvote 0
mumps said:
Copy and paste this macro into the worksheet code module. Do the following: right click the tab name for your COSTOS DE SERVICIOS sheet and click 'View Code'. Paste the macro into the empty code window that opens up. Close the code window to return to your sheet. Enter YES in cell E61 and press the ENTER key.
VBA Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.CountLarge > 1 Then Exit Sub
    If Intersect(Target, Range("E61")) Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    If Target = "YES" Then
        With Sheets("COSTOS PRODUCTOS NACIONALES")
            .Cells(.Rows.Count, "A").End(xlUp).Offset(1) = Target.Offset(1, -4)
            .Cells(.Rows.Count, "C").End(xlUp).Offset(1) = Target.Offset(1, -3)
            .Cells(.Rows.Count, "D").End(xlUp).Offset(1) = Target.Offset(1, -2)
            .Cells(.Rows.Count, "E").End(xlUp).Offset(1) = Target.Offset(1)
        End With
    End If
    Application.ScreenUpdating = True
End Sub
Click to expand...
The update can be done based on the product name (column A) or the sheet name, which will be the same name of the product
 
Upvote 0
Try:
VBA Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.CountLarge > 1 Then Exit Sub
    If Intersect(Target, Range("D:D,E61")) Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Dim fnd As Range
    Select Case True
        Case Target.Address = "$E$61"
            If Target = "YES" Then
                With Sheets("COSTOS PRODUCTOS NACIONALES")
                    .Cells(.Rows.Count, "A").End(xlUp).Offset(1) = Target.Offset(1, -4)
                    .Cells(.Rows.Count, "C").End(xlUp).Offset(1) = Target.Offset(1, -3)
                    .Cells(.Rows.Count, "D").End(xlUp).Offset(1) = Target.Offset(1, -2)
                    .Cells(.Rows.Count, "E").End(xlUp).Offset(1) = Target.Offset(1)
                End With
            End If
        Case Target.Address Like "*D*"
            Set fnd = Sheets("COSTOS PRODUCTOS NACIONALES").Range("A:A").Find(Range("A62").Value, LookIn:=xlValues, lookat:=xlWhole)
            If Not fnd Is Nothing Then
                fnd.Offset(, 4) = Range("E62")
            End If
    End Select
    Application.ScreenUpdating = True
End Sub
This macro is based on the product name in A62 of COSTOS DE SERVICIOS.
 
Upvote 0
Solution
mumps said:
Intentar:
[CÓDIGO=vba]
Hoja de trabajo secundaria privada_Cambio (objetivo por valor como rango)
Si Target.CountLarge > 1, entonces salga de Sub
Si Intersect(Target, Range("D:D,E61")) no es nada, entonces salga de Sub
Aplicación.ScreenUpdating = Falso
Atenuar buscar como rango
Seleccionar caso verdadero
Destino del caso. Dirección = "$E$61"
Si objetivo = "SÍ" entonces
Con Hojas("COSTOS PRODUCTOS NACIONALES")
.Cells(.Rows.Count, "A").End(xlUp).Offset(1) = Target.Offset(1, -4)
.Cells(.Rows.Count, "C").End(xlUp).Offset(1) = Target.Offset(1, -3)
.Cells(.Rows.Count, "D").End(xlUp).Offset(1) = Target.Offset(1, -2)
.Cells(.Rows.Count, "E").End(xlUp).Offset(1) = Target.Offset(1)
Terminar con
Terminara si
Destino del caso. Dirección como "*D*"
Set fnd = Sheets("COSTOS PRODUCTOS NACIONALES").Range("A:A").Find(Range("A62").Value, LookIn:=xlValues, lookat:=xlWhole)
Si no lo encuentro no es nada entonces
fnd.Offset(, 4) = Rango("E62")
Terminara si
Finalizar selección
Aplicación.ScreenUpdating = Verdadero
Subtítulo final
[/CODE]Esta macro está basada en el nombre del producto en A62 de COSTOS DE SERV
Click to expand...

mumps said:
Intentar:
[CÓDIGO=vba]
Hoja de trabajo secundaria privada_Cambio (objetivo por valor como rango)
Si Target.CountLarge > 1, entonces salga de Sub
Si Intersect(Target, Range("D:D,E61")) no es nada, entonces salga de Sub
Aplicación.ScreenUpdating = Falso
Atenuar buscar como rango
Seleccionar caso verdadero
Destino del caso. Dirección = "$E$61"
Si objetivo = "SÍ" entonces
Con Hojas("COSTOS PRODUCTOS NACIONALES")
.Cells(.Rows.Count, "A").End(xlUp).Offset(1) = Target.Offset(1, -4)
.Cells(.Rows.Count, "C").End(xlUp).Offset(1) = Target.Offset(1, -3)
.Cells(.Rows.Count, "D").End(xlUp).Offset(1) = Target.Offset(1, -2)
.Cells(.Rows.Count, "E").End(xlUp).Offset(1) = Target.Offset(1)
Terminar con
Terminara si
Destino del caso. Dirección como "*D*"
Set fnd = Sheets("COSTOS PRODUCTOS NACIONALES").Range("A:A").Find(Range("A62").Value, LookIn:=xlValues, lookat:=xlWhole)
Si no lo encuentro no es nada entonces
fnd.Offset(, 4) = Rango("E62")
Terminara si
Finalizar selección
Aplicación.ScreenUpdating = Verdadero
Subtítulo final
[/CODE]Esta macro está basada en el nombre del producto en A62 de COSTOS DE SERVICIOS.
Click to expand...
Excellent Mumps, works very good, Thanks for your help
 
Upvote 0
You must log in or register to reply here.

Similar threads

L
  • Question Question
MACROS WORK WELL, BUT WHEN I DELETE THE DATA TO LEAVE THE FILE WITHOUT INFORMATION, MACROS DON'T WORK
Replies
1
Views
214
leobrice
L
L
  • Solved
Updating data in cell, run the macro again and it should not happen.
2 3 4
Replies
34
Views
1K
mumps
mumps
L
  • Question Question
Send cell values to 2 other sheets according to condition
Replies
2
Views
201
leobrice
L
A
  • Solved
VBA copy range from multiple sheets into one, adding the sheet name
2
Replies
12
Views
1K
AriannaVV
A
S
  • Question Question
Macro Copy and Paste Value and formatting in multiple same cells when condition is met.
Replies
4
Views
283
RobP
R

Forum statistics

Threads
1,224,812
Messages
6,181,089
Members
453,021
Latest member
Justyna P

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top