Posts by BaraaKhalil

Using Dim is related by putting this statement at the start of the module in the public part .. So if you used this statement you will have to declare variables

Try this line

ActiveCell.Value = Year(Now()) & Month(Now()) & Day(Now())

The code is put in standard module ... If the sheet name was H then when referring to the sheet, it should be Sheet("H")
and if you want to deal with column D you can refer to it
Try this modified code

Sub Test()
    Dim rngLists    As Range
    Dim listCell    As Range


    On Error Resume Next
        Set rngLists = Sheets("H").Columns(4).SpecialCells(xlCellTypeAllValidation)
    On Error GoTo 0


    If Not rngLists Is Nothing Then
        For Each listCell In rngLists.Cells
            listCell.Font.Size = 15
        Next listCell
    End If
End Sub

And if want to do that in one shot you can test that code

Sub Test()
    Dim rngLists    As Range
    Dim listCell    As Range


    On Error Resume Next
        Set rngLists = Sheets(1).UsedRange.SpecialCells(xlCellTypeAllValidation)
    On Error GoTo 0


    If Not rngLists Is Nothing Then
        For Each listCell In rngLists.Cells
            listCell.Font.Size = 15
        Next listCell
    End If
End Sub

May be slight change will solve it

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error GoTo Skipper
    Dim x As Long
    
    x = Target.Font.Size
    If Target.Validation.Type = xlValidateList Then Target.Font.Size = 15: Exit Sub
Skipper:
    Target.Font.Size = x
End Sub

May be something like that

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error GoTo Skipper
    Dim x As Long
    
    x = 100
    If Target.Validation.Type = xlValidateList Then x = 130
Skipper:
    ActiveWindow.Zoom = x
End Sub

Hello
Try this code

Sub Test()
    Dim a           As Variant
    Dim myAreas     As Areas
    Dim i           As Long
    Dim r           As Long
    Dim x           As Long


    For x = 1 To 4
        Sheets(x + 1).Cells.Clear
        Set myAreas = Sheets(1).Columns(x).SpecialCells(2).Areas
        r = 0
        
        For i = 1 To myAreas.Count
            a = myAreas(i).Value
            r = r + 1
            Sheets(x + 1).Range("A" & r).Resize(, UBound(a)).Value = Application.Transpose(a)
        Next i
    Next x
End Sub

You're welcome. Glad I can offer some help

Have a look at this file

Right-click the sheet name >> View Code >> Paste the code and then test the any cell within your range .. The code is working well
If you still have a problem please upload sample of your workbook

In worksheet module try this code

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B3:Q15")) Is Nothing Then
        If Target.Value > 80 Then
            MsgBox "Greater Than 80", vbExclamation
        End If
    End If
End Sub

You're welcome. Glad I can offer some help

Hello
Try this line without quotes

If ele.innertext = TextBox1.Text Then ele.Click

Thanks a lot ..
I just wanted an example of how using the UDF "GetRegistry" and "WriteRegistry" .. A simple example to know how to use the parameters correctly

Thanks a lot Mr. Kenneth for this UDFs
Can you give us example of how to use those UDFs?

I tried that but it doesn't fit the cell .. Thanks a lot for your reply

Thanks a lot for reply
I need to resize to fit the width and height of the cell that the image will be inserted in ..

That's great Logit
Is it possible to add a feature of resizing the images inserted to the cells that will be inserted in?

Hello
It is better to upload sample workbook with some desired output

Cross-post at this link
https://chandoo.org/forum/thre…ts-and-update-both.36281/