Cell with incorrect value

[KhallP]

I created a procedure that writes a specific text in the cell is empty, but when this occurs the value entered is always "TRUE" can someone help?

Public Sub WriteValues()
    
    Ws = ActiveWorkbook.Sheets.Count
    
    For counter = 1 To Ws
    
        Worksheets(counter).Select
        
        ActiveCell = Range("AC12").Select
 
        If ActiveCell.Value = "" Then
        
        ActiveCell.Value = "Date"
        ActiveCell.HorizontalAlignment = xlRight
 
        ActiveCell.Offset(0, 1).Select
        
        ActiveCell.Value = "Time"
        ActiveCell.HorizontalAlignment = xlRight
 
        ActiveCell.Offset(0, 1).Select
        
        ActiveCell.Value = "Value"
        ActiveCell.HorizontalAlignment = xlRight
 
        Else
        End If

        Range("AC13").Select

        If ActiveCell.Value = "" Then
            Call FillCells
 
        Else
        End If
    
    Next
    
End Sub

 

[Lian]

Please try this, your code is too complex, try to be simple.

Public Sub WriteValues()

    Dim ws As Worksheet

    For Each ws In Worksheets
        With ws.Range("AC12:AE12")
            .Value = Array("Date", "Time", "Value")
            .HorizontalAlignment = xlRight
        End With

        If ws.Range("AC13") = "" Then
             ' Here is your customized function.
             Call FillCells
        End If

    Next

End Sub

 

[HaHoBe]

Hi KhaliP,

the code you supplied is static and will always check the very same cells, so the result you get isn´t really surprising me.

Ciao,
Holger