Posts by BaraaKhalil

BaraaKhalil · Apr 5th 2018

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

BaraaKhalil · Apr 5th 2018

Try this line

Code

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

BaraaKhalil · Mar 11th 2018

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

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

Display More

BaraaKhalil · Mar 10th 2018

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

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

Display More

BaraaKhalil · Mar 10th 2018

May be slight change will solve it

Code

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

BaraaKhalil · Mar 10th 2018

May be something like that

Code

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

BaraaKhalil · Feb 3rd 2018

Hello
Try this code

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

Display More

BaraaKhalil · Feb 3rd 2018

You're welcome. Glad I can offer some help

BaraaKhalil · Feb 2nd 2018

Have a look at this file

BaraaKhalil · Feb 2nd 2018

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

BaraaKhalil · Feb 1st 2018

In worksheet module try this code

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

BaraaKhalil · Jan 17th 2018

You're welcome. Glad I can offer some help

BaraaKhalil · Jan 17th 2018

Hello
Try this line without quotes

Code

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

BaraaKhalil · Dec 27th 2017

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

BaraaKhalil · Dec 26th 2017

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

BaraaKhalil · Nov 7th 2017

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

BaraaKhalil · Nov 6th 2017

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 ..

BaraaKhalil · Nov 6th 2017

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

BaraaKhalil · Nov 5th 2017

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

BaraaKhalil · Nov 3rd 2017

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

Posts by BaraaKhalil

Concatenate Year & Month & Day

Concatenate Year & Month & Day

VBA to Call Drop Down List

VBA to Call Drop Down List

VBA to Call Drop Down List

VBA to Call Drop Down List

Copy and paste the data

Vba code

Vba code

Vba code

Vba code

vba ie problem

vba ie problem

unable to write to HKLM

unable to write to HKLM

Inserting photos into spreadsheet as they are taken

Inserting photos into spreadsheet as they are taken

Inserting photos into spreadsheet as they are taken

Delete inbetween two different cells

Compare 3 lists and update both