Email:      Pass:    Pass?
Close Window   
TE
Subscribe for Email Updates!
Excel tips, help, and more!
E-mail:


Advertisements


Free Excel Forum

"concatenar" Y Dar Formato A Fecha

Forum Register
Search Excel Forum Posts, Tutorials, Macros, Tips, and More

Hola de nuevo !!!

Tengo en una macro:

' Estoy trabajando en la Hoja1
Range("A1").FormulaR1C1 = "Fecha: " & Sheets("Hoja2").Range("A1")

donde Sheets("Hoja2").Range("A1"), es una fecha con formato d-mmm-yyyy, o sea NumberFormat = "[$-C0A]d-mmm-yyyy;@". Supongamos qe el valor de esa celda es: 20-oct-2010

Como resultado en la celda A1 de la Hoja1 obtengo:
Fecha: 20/10/2010

Pregunta:
Hay alguna forma de "forzar" que la fecha la ponga en el formato que tengo en toda la planilla, d-mmm-yyyy
Es decir, que en la celda A1 de la Hoja1 obtenga:
Fecha: 20-oct-2010

Gracias
Saludos
Gustavo

View Answers     

Similar Excel Video Tutorials

Helpful Excel Macros

Excel Macro to Save a Specific Worksheet as a New File
- This Excel Macro allows you to save a specific worksheet within the Excel Workbook to its own new file. You will be a
Excel Macro that Searches Entire Workbook and Returns All Matches
- This is the ultimate Lookup Macro for Excel. It will search every worksheet in the workbook and return all of the mat
Format Cells in The Short Date Number Format in Excel
- This free Excel macro applies the Short Date number format to a selection of cells in Excel. This number format display
Delete All Chart Sheets in Excel - Only Chart Sheets are Deleted - Not Embedded Charts
- Delete all chart sheets and tabs in Excel using this macro. This will only delete the charts and graphs that are in the
Name Worksheets Based on Cell Contents
- This macro allows you to have your worksheets named by whatever is in a particular cell within a worksheet. This means

Similar Topics







Necesito saber como se puede cambiar el formato de una simple palabra de un texto, a traves de codigo o funciones

ejemplo

Ask any Excel questions in your native language, fecha 27/02/2009
necesito que quede asi

Ask any Excel questions in your native language, fecha 27/02/2009

Solo las palabras Excel y la fecha se deben cambiar a negrillas

y como la fecha viene de otra celda, necesito saber como cambiarle el formato por funciones o macros

Gracias


A ver si me pueden auxiliar con esta duda............

Tengo un libro donde tengo vinculados n libros, lo que quisiera hacer es vincular tambien la fecha de la ultima modificacion y la fecha de creacion.
Esto hoy en dia lo estoy logrando con una macro donde aplico Hoy() y posteriormente pego valores en cada uno de los libros, pero realmente se me hace muy rudimentario, aparte que tambien tengo vinculos con Power point y Word.
Muchas gracias por su apoyo.
Saludos


Hola, tengo la siguiente formula:
=AM5&" - "&AN5&" - "&AO5
la cual me devuelve el valor siguiente:

198,275862068966 - phillips - PRYCA

la celda a la que hace referencia am5 tiiene un formato de moneda, pero al concatenar las celdas me pierde ese formato.

como puedo conseguir el resultado??:

198,27€ - phillips - PRYCA


I have a table with the following fields: agent, time entry, time expense. Hoja1

  B C D E 1 Agente Fecha Hora Hora 2 A 12/05/2010 09:01:00 a.m. 09:01:00 a.m. 3 A 12/05/2010 10:10:00 a.m. 10:10:00 a.m. 4 A 12/05/2010 12:30:00 p.m. 12:30:00 p.m. 5 A 14/05/2010 06:01:00 p.m. 06:01:00 p.m. 6 A 15/05/2010 07:01:00 p.m. 07:01:00 p.m. 7 A 16/05/2010 08:01:00 p.m. 08:01:00 p.m. 8 B 12/05/2010 06:00:00 a.m. 06:00:00 a.m. 9 B 13/05/2010 07:00:00 a.m. 07:00:00 a.m. 10 B 13/05/2010 09:00:00 a.m. 09:00:00 a.m. 11 B 13/05/2010 10:00:00 a.m. 10:00:00 a.m. 12 B 13/05/2010 03:00:00 p.m. 03:00:00 p.m. 13 C 13/05/2010 10:00:00 a.m. 10:00:00 a.m. 14 C 13/05/2010 03:00:00 p.m. 03:00:00 p.m.

Excel tables to the web >> Excel Jeanie HTML 4

I would like to obtain a table like this.




Hoja1

  B C D E 1 Agente Fecha Hora Hora 2 A 12/05/2010 09:01:00 a.m. 09:01:00 a.m. 3 A 12/05/2010 10:10:00 a.m. 10:10:00 a.m. 4 A 12/05/2010 12:30:00 p.m. 12:30:00 p.m. 5     09:01:00 a.m. 12:30:00 p.m. 6 A 14/05/2010 06:01:00 p.m. 06:01:00 p.m. 7     06:01:00 p.m. 06:01:00 p.m. 8 A 15/05/2010 07:01:00 p.m. 07:01:00 p.m. 9     =MIN(D8) =MAX(E8) 10 A 16/05/2010 08:01:00 p.m. 08:01:00 p.m. 11     =MIN(D10) =MAX(E10) 12 B 12/05/2010 06:00:00 a.m. 06:00:00 a.m. 13     =MIN(D12) =MAX(E13) 14 B 13/05/2010 07:00:00 a.m. 07:00:00 a.m. 15 B 13/05/2010 09:00:00 a.m. 09:00:00 a.m. 16 B 13/05/2010 10:00:00 a.m. 10:00:00 a.m. 17 B 13/05/2010 03:00:00 p.m. 03:00:00 p.m. 18     =MIN(D14:D17) =MAX(E14:E17) 19 C 13/05/2010 10:00:00 a.m. 10:00:00 a.m. 20 C 13/05/2010 03:00:00 p.m. 03:00:00 p.m. 21     =MIN(D19:D20) =MAX(E19:E20)
Spreadsheet Formulas Cell Formula D5 =MIN(E2:E4) E5 =MAX(D2:D4) D7 =MIN(D6) E7 =MAX(E6)

Excel tables to the web >> Excel Jeanie HTML 4


Can I achieve it with subtotals Method?


I have got in cell A1: 12/07/08
Then
A3: =MyFunc(A1,....,....)

Function MyFunc(Fecha as Date,.........,,)

Fecha >>> 12/07/08
I want the Date Serial Number as Integer
Fecha * 1 = 39641

Is there an other way for to obtain the same result?

CInt(Fecha)?
mmmmmm?


Hola a todos. Tengo dos hojas: HojaOrigen y HojaDestino. Quiero pasar varios rangos a la vez de la HojaOrigen a HojaDestino. Pero no me deja COPIAR varios rangos a la vez. Como lo hago? Me han comentado algo de los ARRAYS pero no se como.

Code:

 
Sub Pasa_Datos()
Dim fecha, Fecha2, I, I2, Encontrado, Encontrado2, mensaje
Encontrado = False
Encontrado2 = False
I = 16
Y = 24
fec = InputBox("Indica fecha para pasar los Datos: (dd-mm-aa)", "Pasar Datos diarios a Glade Furnace Data")
'Si Fec es igual a vacio(cancelar) entonces se sale de la macro
If fec = "" Then End
 
fecha = FormatDateTime(fec, vbShortDate)
Fecha2 = fecha
Do While ((Range("A" & I)  "") And Not (Encontrado))
If (FormatDateTime(Range("A" & I).Value, vbShortDate) = fecha) Then
Encontrado = True
Else
I = I + 3
End If
Loop
If Not (Encontrado) Then
mensaje = MsgBox("Error en la fecha. Comprueba que la fecha sea correcta.", vbOKOnly, "FECHA ERRONEA")
Else
******************************************************************************** 
Range("D" & I & ":F" & I).Select
Range("G" & I & "J" & I).Select
Range("L" & I & "Q" & I).Select '''''''''''''''''''''''''''''''' AQUI ESTA MI PROBLEMA. Me gustaria seleccionar
Selection.Copy ''''''''''''''''''''''''''''''' todos los rangos a la vez. 
********************************************************************************
'Abre HojaDestino
On Error GoTo 0
Workbooks.Open ("D:\EXCEL\PLANILLAS\HojaDestino.xls")
Windows("HojaDestino.xls").Activate
Sheets("Datos").Select
Do While Range("A" & Y).Value  "" And FormatDateTime(Range("A" & Y).Value, vbShortDate)  Fecha2
Y = Y + 1
Loop
 
If FormatDateTime(Range("A" & Y).Value, vbShortDate) = Fecha2 Then
Range("AZ" & Y).Select
End If
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.Wait Now + TimeValue("00:00:03")
ActiveWorkbook.Save
ActiveWorkbook.Close
Windows("HojaOrigen.xls").Activate
Application.CutCopyMode = False
mensaje = MsgBox("Los datos se han pasado correctamente.", vbInformation, "PROCESO DE DATOS")
 
End If
 
End Sub





Buenas noches, no paro de probar y probar pero no encuentro la formula correcta de restar dos fechas y que me de como resultado los dias entre ambas, parece simple pero con el ejemplo lo veran mejor.
10-01-09 (fecha uno)
15-01-09 (fecha dos)
necesito que el total de la resta de ambas fechas sea 6, ya que probando con todas las formulas de dias.lab, dias360, dias etc, me cuenta solo fecha 11, 12, 13, 14 y 15, un total de 5 dias, y lo que busco es que me cuente 10, 11, 12, 13, 14 y 15
Alguien me puede echar un cable ?

Gracias internaut@s.


Hola, quiero cambiar el color de una fila entera dependiendo del valor
de una celda en una columna.
Las filas van de A-L y la columna E es el target. Si esta columna tiene
valores "0" quiero que toda la fila se ponga gris, y si es diferente de
cero que vuelva a blanco.
Lo que he hecho es lo siguiente:
- Formato condicional en la columna E:
valor de la celda - igual a - "0%" -- cambia fondo a
gris
valor de la celda - no igual a - "0%" -- cambia fondo a
blanco


- Luego en VB he hecho lo siguiente:
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("E4") =3D 0 Then
Worksheets("Riesgos").Range("A4:L4").Interior.Color =3D RGB(192,
192, 192)
Else
Worksheets("Riesgos").Range("A4:L4").Interior.Color =3D RGB(255,
255, 255)
End If



[Seguramente el formato condicional sobre]. La cuesti=F3n es que esto
que funciona quiero aplicarlo a todas las filas de la hoja, y no se
como. He intentado hacer alg=FAn tipo de bucle del estilo:

'Dim n As Integer
'For n =3D 4 To 50
'If Range("E"$n) =3D 0 Then
'Worksheets("Riesgos").Range(A, L).Interior.Color =3D RGB(192, 192,
192)
'Else
'Worksheets("Riesgos").Range(A, L).Interior.Color =3D RGB(255, 255,
255)
'End If
'Next

Pero no funciona, intento averiguar una forma de poner variables en
Range pero no se como.
=BFMe podr=EDais ayudar??
Gracias




Hello again guys!

I have this formula to count unique values in a column and it takes almost 90 seconds when I try to set it within a macro.

Is there a better way of counting unique items?

Here's the formula:

=SUM(IF(FREQUENCY(IF((stats.xls!ID_MOZO=RC[-2])*(stats.xls!FECHA>="2010-01-01 00:00:01")*(stats.xls!FECHA

me gustaria saber si existe alguna manera en excel donde yo ponga el valor en
numeros en una celda y automaticamente en la celda de lado se vaya poniendo
la cantidad en letras



Ive created a listbox that populates with the click of a button and with info from comboboxes. I am trying to format what the listbox displays. aatached I show the code and an image of what appears.

VB:

 
Private Sub cmdAgregar_Click() 
     
     
     
    Dim Doc As String 
    Dim Fecha As String 
    Dim Dep As String 
    Dim Per As String 
    Dim lblTask As Control 
     
    If txtOtro.Enabled = False Then 
        Doc = Me.cboDocumentos.Value 
    Else 
        Doc = Me.txtOtro.Value 
    End If 
     
    Fecha = Me.fechaentrega.Value 
    Dep = Me.cboDepartamentos.Value 
    Per = Me.txtPersona.Value 
     
    ListBox1.AddItem (" " & Doc & " " & Fecha & " " & Dep & " " & Per) 
End Sub 


If you like these VB formatting tags please consider sponsoring me in support of injured Royal Marines



form.JPG

Saludos desde C.R.

En este momento me encuentro en un dilema, Tengo que cambiar 600 celdas de datos en excel, Quiero hacer una macro en donde con presionar Ctrl+z ejecute dicha macro... Ejemplo. C+Z y me cambia el formato de A2, cuando lo hago por primera vez todo perfecto, lindo... Sin embargo, cuando quiero ejecutar C+Z por segunda vez, aunque este en la fila A5000 se va a la celda A2 y no cambia la celda A5000.
Podrian ayudarme a modificar la macro, para que cuando presione C+Z me cambie la celda A2 e inmediatamente se posecione en la celda A3, luego presiono C+Z ejecute la macro y se posecione en A3 y asi sucesivamente.


Gracias, les agradezco...

Y que viva siempre el trabajo y la paz.


hola, me está sucediendo algo que nunca vi.
cuando clickeo en cualquier celda de una planilla no queda esta sola como
celda activa, sino que marca un rango partiendo desde una celda activa que se
ve que quedó fija por algún motivo. por ejemplo quedó la celda activa A1 y
cuando
hago click con el mouse en la b3, lo que hace excel es marcar todas las
celdas com
prendidas en ese rango en lugar de marcar solo la b3 ¿ alguien me puede
decir como desactivar esa celda que quedó fija ?
muchas gracias






Hola.. Al parecer en este blog nada mas escribo yo jaja gracias por atender mis preguntas.

tengo una base de datos, en la cual necsito hacer lo siguiente:

Hoja 1 (Resultado en hoja1)
a b c
1) Carro 50 =vlookup(de hoja 2 columna b)
2) Van 12 =vlookup(de hoja 2 columna b)
3) Pickup 10 =vlookup(de hoja 2 columna b)

Hoja 2 (base de datos)
a b c d
1) Carro =vlookup de hoja uno columna B) 5 =50*5=250
2) Van =vlookup de hoja uno columna B) 10 =12*10=120
3) Pickup =vlookup de hoja uno columna B) 15 =10*15=150

En la hoja 1 se captura a y b

En la hoja 2 hace un vlookup de la hoja 1 para decirle el valor el cual lo tiene que multiplicar en la columna d con la c

Ya lo logre hacerlo con una celda unicamente. A la hora que quiero hacerlo que cada vez que se introdusca cualquier valor de de la columna "a" de la hoja 1 se ponga el resultado ya establecido de la hoja 2, me dice que un valor de la table no esta bien. Pero si lo hago solamente con uno me da como yo quiero.

Espero haberme explicado si no creo que este si esta mas dificil.

Gracias


Buenos dias a todos. Hace tiempo que no venia por aqui

Estoy teniendo problemas para actualizar muchos datos de archivo uno.xls, hoja1,
al archivo dos.xls, hoja1.

En archivo dos.xls tengo otras hojas que tienen referencias a hoja1, y quiero asegurar que pueda actualizar la hoja1 desde uno.xls a dos.xls con una simple macro, y simplemente quiero que borre todo lo que esta en dos.xls y ponga todo lo de uno.xls

pls help!

gracias!


Hi im trying to create labels dynamically in VBA excel. I have a form where my user has 3 buttons one is to add Documents witch contain (Doc,Fecha,Dep and Per), I want as soon as the user clicks on add to display a label with what he just entered. The user will upload as many documents as he wants and the labels will appear one over the other. Afterwards he will click on another button SAVE and this will add all the info saved in the labels to an excel worksheet. So far all I have is this and I keep getting an error when adding handles:


VB:

Option Explicit 
Dim counter As Integer 
 
Private Sub agregar_Click() 
    Dim Doc As String 
    Dim Fecha As String 
    Dim Dep As String 
    Dim Per As String 
    If txtOtro.Enabled = False Then 
        Doc = Me.cboDocumentos.Value 
    Else 
        Doc = Me.txtOtro.Value 
    End If 
    Fecha = Me.fechaentrega.Value 
    Dep = Me.cbodepartamento.Value 
    Per = Me.txtPersona.Value 
    Dim lblTask As control 
    lblTask.Name = "Label" & counter  /// here I create a New label. 
    lblTask.Width = 336 
    lblTask.Height = 12 
    lblTask.Left = 6 
    lblTask.Top = 220 + 56 * (counter - 1) 
    lblTask.Caption = Doc & Fecha & Dep & Per 
    Me.Controls.Add (lblTask) 
    counter = counter + 1 
     
End Sub 


If you like these VB formatting tags please consider sponsoring me in support of injured Royal Marines




please guys if you could help it would be great!!!! i've been at it for 2 days and i cant find a way around it any suggestions are welcome.

Que tal a todos. nuevamente estoy aqui necesitando de su ayuda.

tengo un problema. un libro en donde diariamente tengo que agregar una hoja nueva, en el mismo libro tengo una hoja de resumen en donde tengo que colocar el total de todas las hojas. como ya se dieron cuenta tengo que escribir diario la referencia de cada hoja. las referencias son siempre las mismas es decir A3 en todas las hojas.
me pueden decir si hay alguna formula para hacerlo o algun codigo que cheque el total de hojas en el libro te de la referencia deceada.

gracias anticipadas.
saludos.



Buenas, se que deben estar cansados de esta pregunta, solo quisiera que me den posible solucion o alternativa.



Tengo una formulario creado en un userform, donde en el textbox que ingreso numeros (solo numeros enteros) este es el codigo:

Private Sub TextBox1_Change()
Range("A14").Select
ActiveCell.FormulaR1C1 = TextBox1
End Sub

y asi los demas textbox pero solo coloco texto en los demas..

y el formulario posee un boton de comando para cargar los datos, este es el codigo:

Private Sub CommandButton1_Click()

Selection.EntireRow.Insert
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox1.SetFocus
End Sub



Ok todo bien, pero por que deseo que sea en formato numerico? pues en la tabla donde se vacian los datos utilizo en la primera fila el comando CONSULTAV (EXCEL 2010). BUSCARV (2007 para abajo) y al no ser formato de numero no me arroja el resultado.



Que solucion pueden darme, o alternativa del textbox.



Saludos y muchas gracias..


Que tal otra ves.
tengo un nuevo problema ayudenme por favor.
tengo un archivo con un userform y con este lleno las siguientes celdas. y finalmente lo mando a imprimir. en el fomulario agrego un concecutivo. es decir sin son dies hojas las que quiero solo escribo /10 mando a imprimir saco 9 copias y a cada hoja le escribo con plumon su numero concecutivo 1/10, 2/10, 3/10 etc.
existe alguna forma de acerlo en automatico. que solo escriba el total de hojas que necesito y a cada hoja le ponga su nemero concecutivo.
espero no haberlos confundido.

Hoja1

B C 2 3 Tenis Negros 4 Marca. Adidas 5 no. 26-29 6 /10 7

Excel tables to the web >> Excel Jeanie HTML 4

Saludos y Gracias.




Hello:
I am a beginner in VBA for excel. I am trying to make a code that works on the workbook open event, and after looping thru a series of 10 worksheets searching for values to copy and paste in another worksheet, the code opens another workbook (with a different name), and loops thru another series of 10 worksheets that have the same name as the above mentioned searching for values to copy and paste in the same worksheet of the first open workbook. When the code tries to open the second workbook, I keep getting the runtime error 1004, error on method Open on workbooks object. Any ideas about this problem?

The code I am running is as follows:
VB:

Private Sub Workbook_Open() 
    Application.ScreenUpdating = False 
    Application.Calculation = xlCalculationManual 
     
     '  La siguiente seccion del codigo se encarga de activar la hoja2 (Equipos) y _
     '  Protegerla contra escritura, permitiendo la edicion de las celdas no protegidas _
     '  y el uso de agrupar/desagrupar datos.
     
    Hoja2.Activate 
    Range("a1").Activate 
    Hoja2.Protect Password:="", DrawingObjects:=False, Contents:=True, Scenarios:=False, _ 
    UserInterfaceOnly:=True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _ 
    AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows:=True, _ 
    AllowInsertingHyperlinks:=True 
    Hoja2.EnableOutlining = True 
     
     '  La siguiente seccion del codigo se encarga de verificar la fecha de actualizacion
     '  de los listados de materias primas del archivo actual.
     
    Dim Contador_LEP As Integer 
    Dim Inicio As Integer 
    Dim Final As Integer 
    Dim Texto As String 
     
    Inicio = Sheets("Grupos de Recursos").Range("a3") 
    Final = Sheets("Grupos de Recursos").Range("a12") 
     
    For Contador_LEP = Inicio To Final 
        Texto = Sheets("Grupos de Recursos").Range("b" & 3 + Contador_LEP & "") 
        If Sheets("GR0" & Contador_LEP & " - " & Texto & "").Visible = False Then 
            Sheets("GR0" & Contador_LEP & " - " & Texto & "").Visible = True 
        Else 
        End If 
        Sheets("GR0" & Contador_LEP & " - " & Texto & "").Select 
        Range("xfd2").Activate 
        Selection.End(xlToLeft).Select 
        Selection.Copy 
        Application.Goto Reference:="EP.Fecha.GR0" & Contador_LEP & "" 
        ActiveSheet.Paste 
        Sheets("GR0" & Contador_LEP & " - " & Texto & "").Visible = False 
         
    Next Contador_LEP 
     
     ' La siguiente parte del codigo verifica cual fue la ultima fecha de actualizacion _
     ' del listado de materias primas del archivo maestro.
     
    Workbooks.Open "c:\fibratore\base de datos principal fibratore.xlsm" 'Here is were I get the error
     
    For Contador_LEP = 0 To 9 
         
        Windows("Base de Datos Principal Fibratore.xlsm").Activate 
        Application.Goto Reference:="EP.Fecha.GR0" & Contador_LEP & "" 
        Selection.Copy 
        Windows("Laminados de Equipos Principales.xlsm").Activate 
        Application.Goto Reference:="EP.Fecha.GR0" & Contador_LEP & ".VMR" 
        ActiveSheet.Paste 
         
    Next Contador_LEP 
     
    Application.CutCopyMode = False 
    Windows("Base de Datos Principal Fibratore.xlsm").Activate 
    Application.ActiveWindow.Close 
     
    Sheets("Equipos").Outline.ShowLevels Rowlevels:=1 
    Application.Calculation = xlCalculationAutomatic 
     
End Sub 


If you like these VB formatting tags please consider sponsoring me in support of injured Royal Marines



The workbook that I try to open when I get the error, also runs a code on the workbook open event. The code it runs is as follows:
VB:

Private Sub Workbook_Open() 
     
    Application.ScreenUpdating = False 
     
    Dim Contador_BDP As Integer 
    Dim Inicio_BDP As Integer 
    Dim Final_BDP As Integer 
    Dim Texto_BDP As String 
     
    Inicio_BDP = Sheets("Grupos de Recursos").Range("a3") 
    Final_BDP = Sheets("Grupos de Recursos").Range("a12") 
     
    For Contador_BDP = Inicio_BDP To Final_BDP 
        Texto_BDP = Sheets("Grupos de Recursos").Range("b" & 3 + Contador_BDP & "") 
        If Sheets("GR0" & Contador_BDP & " - " & Texto_BDP & "").Visible = False Then 
            Sheets("GR0" & Contador_BDP & " - " & Texto_BDP & "").Visible = True 
        Else 
        End If 
        Sheets("GR0" & Contador_BDP & " - " & Texto_BDP & "").Select 
        Range("xfd2").Activate 
        Selection.End(xlToLeft).Select 
        Selection.Copy 
        Application.Goto Reference:="EP.Fecha.GR0" & Contador_BDP & "" 
        ActiveSheet.Paste 
        Sheets("GR0" & Contador_BDP & " - " & Texto_BDP & "").Visible = False 
        ActiveWorkbook.Save 
    Next Contador_BDP 
     
    Hoja2.Outline.ShowLevels Rowlevels:=1 
    Hoja1.Activate 
    Range("a1").Activate 
     
End Sub 


If you like these VB formatting tags please consider sponsoring me in support of injured Royal Marines




Buenas a todos los integrantes del foro, les agradeceria que me echaran
una manito con esta macro que me esta haciendo salir canas
verdes=A1=A1=A1=A1 les agradezco su ayudita de antemano

quiero que esta macro me compare el valor de una celda con los valores
de una columna y que me borre la fila entera si este valor esta en la
tabla 2 veces(pero que me deje una de las coincidencias), pero que me
diga "actualizado" si s=F3lo hay una coincidencia

Sub borrafila()

Dim v As Variant
Dim i As Long


iRows =3D Cells(Rows.Count, "c").End(xlUp).Row ' detecta la ultima celda
en c
v =3D Worksheets("formato recolecci=F3n datos").Range(Worksheets("formato
recolecci=F3n datos").["g30"])

For i =3D iRows To 1 Step -1 '


If Cells(i, 4) =3D v Then '
Cells(i, 4).EntireRow.Delete ' borra fila
End If
Next i


End Sub




Hola, Quiero que en la celda L5 aparezca un 1 si la celda S4 deja de estar "vacia" en decir que si esta vacia no tome como que el valor es cero, y lo mismo cuando las celdas S6 y S8 son llenadas con valores de manera que si las 3 tienen datos la celda L5 tendria un valor de 3. Es para calcular los partidos jugados de un equipo. Lo mismo haria con PG (patidos ganados) PP (partidos perdidos) GF (goles a favor) y GC (goles en contra).

Espero que este claro, la tabla se encuentra en el siguiente link!

gracias


http://img694.imageshack.us/i/excelv.jpg/