Posts by alhagag

this is my file

you seem misunderstanding this is not useful if i attach empty file no data i'm talking about if there is no data at all in the workbook so if you see important attach empty file i will do it

hi, royuk do you have any idea why your file work for you but me not is it mystery ? indeed , i like your code i struggle to find way to work

thanks royuk about your assistance unfortunately your code doesn't work for me i no know where is the problem

many thanks logit for your codes work perfectly

yes, the error shows "run time error 1004" no cells were found

according your code yes you're right but i uploaded your file and clear data in column a it's not successful , it keeps showing error

i know whit you have data it works code without any problem but when you have no any data in column a then it shows the error the idea how i can fix it the error just i'm trying to learn how overcome the error maybe i run the macro without atention ,there is no data but the message box inform me the problem

hi, royUk unfortunately the error still show in this line

With ActiveSheet.Columns(1).SpecialCells(xlConstants)

hi, royuk but logit not use on error resume next it disables the some lines related it

sorry logit about delaying answer you your code works perfect but i would ask you about disable some lines code if i understand you if i use active sheet then the code should this

Option Explicit
Sub autoFitRows()
'If WorksheetFunction.CountA(Range("A1:A100")) = 0 Then
If ActiveSheet.Columns(1) Is Nothing Then
 MsgBox " No cells found"
 Exit Sub
End If
With ActiveSheet.UsedRange
 .EntireRow.AutoFit
 On Error Resume Next
 With .Columns(1).SpecialCells(xlConstants)
 aOn Error GoTo 0
 If Not .Columns(1) Is Nothing Then
 .RowHeight = .RowHeight + 5
 
 End If
 End With
 End With
 
End Sub

actually i test it but it's not successful the same error remains showing just curiosity to understand amending the code , you've solved my problem

hello

i have this code it autofit the rows it applys only fillin data but if there is no data then show runtime error 1004 cells not found i add some lines to avoid the error but it not successful

i appreciate if anybody help

 Sub autoFitRows()
   With ActiveSheet.UsedRange
      .EntireRow.AutoFit

     On Error Resume Next
      With .Columns(1).SpecialCells(xlConstants)
      On Error GoTo 0
If Not .Columns(1) Is Nothing Then
         .RowHeight = .RowHeight + 5
         Else
         MsgBox " no cells found"
         End If
      End With
   End With

End Sub

thanks this what i want

hi, royuk the problem is not copy any data to sheet (report) is empty

hello

i try desighn code to copy data from sheet(beginner ) range b6,b7 to sheet (report) in lastrow but my code doesn't work so i need help where is a problem

this is my code

Sub posting()
Dim lr As Integer
Dim wsh As Worksheet
Set wsh = Sheets("report")
lr = Range("b" & Rows.Count).End(xlUp).Row
With Sheets("begining")
.Range("b6").Value = wsh.Range("a" & lr + 1)
.Range("b7").Value = wsh.Range("b" & lr + 1)
End With
End Sub

yes, it's solved

many thanks for your code and explanation

i 've found it why it gives me error my microsoft office is not English language it should write current language

i would explain me some values in your code what mean theses values

-01,-020 ,31

thanks dangelor it's excellent but can you change to name instead of number i would choose like this jan;feb not 1,2

thanks again

hello

how can i create serial dates from staring to end based on dropdown in g2 the name of date jan,feb ...etc and create serial dates in col h