Posts by Bikke

Good morning

Just to clear up some doubts, I brought the files to work to test.

It was giving the same errors, so I put =-1 in the VBA code again, and it works correctly.

Public Sub DeleteTempCF(r As Range)
  Dim c As Range
  Dim LoopCounter As Long
  
  '// Simply loops all CFs in a range, deleting those where the formula is '=True'
  For Each c In r
    With c
      For LoopCounter = .FormatConditions.Count To 1 Step -1
        If .FormatConditions(LoopCounter).Formula1 = "=-1" Then
            .FormatConditions(LoopCounter).Delete
        End If
      Next
    End With
  Next
End Sub

Here I also have Excel 2007, so I don't know why my excel at home doesn't work.

I already uninstalled it, and reinstalled it and it stayed the same, if you can tell me why it is, and what should be done, I would be grateful.

If I have to uninstall excel again and delete something in regedit, so that nothing remains in the pc's memory.

So, it seems that the problem was solved, now I just need to see what is happening with my excel at home.

I want to thank all the help given by both gijsmo and cytop.

They were spectacular, unsurpassed, tireless, despite the fact that I had already given up, they stood firm in helping me with this problem.

I'm glad there are people like you on this Forum to help those in need, because without you we would be lost.

I want to publicly thank you for all the help you have given me in solving this problem, because without you I would not have been able to.

My most sincere thanks.

Good week to you.

Best regards

I uninstalled Office Enterprise 2007.

I restarted the computer.

I reinstalled Office Enterprise 2007.

I opened the files that were made available to me, and I always get this error.

So I no longer know what to do.

I give up because I don't know why the file doesn't work on my PC.

Maybe one day a miracle will happen and it will work, but until then, I give up.

So thank you from the bottom of my heart for everything you've done to try to solve this problem and help me.

Thank you very much for everything.

Best regards

Good afternoon cytop

Thank you for your attention.

I downloaded the file to my desktop, opened the file and clicked on some excel cells, everything is still the same.

Good afternoon

I'll try to explain what I'm doing, so you can see that I'm doing it right.

1º - I downloaded the gijsmo file to my desktop.

2º - I opened the excel file and clicked on various cells to see if they changed colour (to yellow).

3º - The colour changed to yellow, but when I clicked on another cell, the colour yellow remained in the other cells, when it should have been white.

4º - I have NOT changed the VBA code, it is as the gijsmo did.

5º - I haven't copied any code from one file to another, the file is the same as the one gijsmo posted on the Forum.

6º - My Excel is the Office Enterprise 2007 version in PT-PT (Portuguese for Portugal).

So I can't understand why it works on you and not on my PC.

Is it something to do with your version of Excel and mine?

If it's not that, then I don't know what it is.

I'm driving myself crazy with all this, because I can't figure it out or understand why it's happening to me.

Thank you for your patience and for trying to help me solve this problem.

Sincerely

Best Regards

I downloaded this file and went to test it, it doesn't work for me, it's the same as the previous one.

I give up, I don't think it's worth working on this file anymore.

Thanks for everything you've tried to do to help me, but I can see that it's not working for me.

Thank you very much.

Best regards

Good afternoon

It's still the same.

I click on any cell, the colour changes to yellow, but when I leave, it leaves those same cells with the colour yellow, when it should leave them with the original colour, so everything remains the same.

I don't know what else to do.

I think I'm going to give up on this project, because I'm giving people a lot of trouble, and I don't want or want that.

I sincerely apologise for the trouble I'm giving you.

I know you want to help me, and I appreciate that, but there seems to be no end to it and I'm not having any luck in the end.

I want to thank you from the bottom of my heart for all your support and your efforts to get this resolved.

As I'm not having any luck on my side, I think we'd better leave it at that.

I will be eternally grateful for your efforts in resolving this problem, thank you very, very much.

Have a good weekend.

Best regards

By the way, gijsmo, is it normal for a cell to remain yellow when you click on it and it turns yellow?

Shouldn't it be white?

I know why that happens.

The formula says =TRUE

But my Excel is in Portuguese ( PT-PT ).

So instead of the formula being =TRUE, I replace it with =VERDADEIRO, and the yellow colour appears.

Thanks for your help and I apologise for all the work I've done.

Thank you very much.

Have a good weekend.

Best regards

I don't know what's going on, because in my Excel 2007, the colour yellow doesn't appear, it's blank, as shown in the image.

Thank you, cytop, for your help.

Thank you, gijsmo, for your help.

I went to test the file, and the yellow colour doesn't appear when I click on any cell, it's simply blank, and that's not what I want.

I'm sorry to be bothering you and giving you so much trouble, but I really wanted it so that when I clicked on any cell, it would have a yellow background colour, except, of course, if the cells had Conditional Formatting, then it's not possible to change the colour, because there's already a colour there, I'm talking about cells that are blank and when you click on it, it will have a yellow colour.

I don't know if I'm making myself clear.

And once again, I apologise for the inconvenience caused.

Best regards

Good evening gijsmo

I'd like to know how to make it so that whenever you click on a cell and then leave that cell to go to another, the original colour stays intact and doesn't change colour as in the file I attached in the post: Post 11

If it's possible, I'd really appreciate it.

Thank you

Best regards

Good evening gijsmo

I put two colours just to give you an idea, but in reality it's only one, and that's what I want, nothing more,

If it's possible to realise what I want, it would be wonderful and I'd appreciate the help.

Thank you in advance for your attention.

Best regards

Good evening gijsmo

I apologise for opening the post again, but I didn't foresee something, and now I'm working with the file and I've noticed my mistake.

Is there any possibility of adding something to the existing VBA code that prevents/leaves the original colour?

Because when I click on one or more cells that have a colour, when I click on it I get the colour defined in the code (in this case yellow), but when I click on another cell, the colour that was there disappears and I get white, when in fact the colour was something else.

I don't know if I'm explaining myself correctly.

But the file already contains two examples of what I'm trying to explain.

Is that possible?

Thanks in advance, and sorry to open this post again

Regards

Good evening gijsmo

Perfect, that's it, it works perfectly.

Thank you very much for your help.

Have a good working week.

Best Regards

I've done it and it still gives me an error.

I didn't think it would be necessary, which is why I didn't put the file up.

Thank you for your attention.

Best regards

P.S.- The second code is so that whenever I click on any cell, a colour appears, in this case yellow, and when I click on another cell, that cell becomes white and the other yellow, and so on.

I probably explained myself badly.

The first VBA code works perfectly on its own and with the one below, but the VBA code below is the one that gives an error, so I'm saying that it should be joined, maybe it's not necessary, but what is certain is that it always gives an error.

That's why I'm asking for help.

I apologise for explaining myself badly.

Best regards

Move how and where?

I've moved under: Private Sub Worksheet_SelectionChange(ByVal Target As Range)

And I still get an error.

It would be easier to post the full code so I can understand, please.

Private Sub Worksheet_Change(ByVal Target As Range)

Dim shp As Shape, rng As Range
  If Target.Count > 1 Then Exit Sub
   If Intersect(Target, [D8:D227]) Is Nothing Or Target.Value <> "" Then Exit Sub
   Cells(Target.Row, 5).Resize(, 11) = "": Cells(Target.Row, 17).Resize(, 3) = ""
    
End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim lTarget As Range

    If Not lTarget Is Nothing Then
        lTarget.Interior.ColorIndex = 0
    End If

    Target.Interior.ColorIndex = 19

    Set lTarget = Target
End Sub

Thank you

Good evening

I have a code in excel, which I would like to add another, but I can't, it gives an error, can you help me, please?

Thank you

Regards

Private Sub Worksheet_Change(ByVal Target As Range)

Dim shp As Shape, rng As Range
  If Target.Count > 1 Then Exit Sub
   If Intersect(Target, [D8:D227]) Is Nothing Or Target.Value <> "" Then Exit Sub
   Cells(Target.Row, 5).Resize(, 11) = "": Cells(Target.Row, 17).Resize(, 3) = ""
    
End Sub


Dim lTarget As Range

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not lTarget Is Nothing Then
        lTarget.Interior.ColorIndex = 0
    End If

    Target.Interior.ColorIndex = 19

    Set lTarget = Target
End Sub

This post has already been solved in another Forum by NoSparks, with the following solution.

Private Sub Worksheet_Change(ByVal Target As Range)        Dim HowMany As Long    Dim rng As Range    ' check that only one cell changing at a time
If Target.CountLarge > 1 Then Exit Sub
' only concerned if C5 or C6
If Intersect(Target, Range("C5:C6")) Is Nothing Then Exit Sub

' initially display 31 columns
Range("D11:AH11").EntireColumn.Hidden = False

' days in this particular month
HowMany = CInt(Range("C9").Text)
If HowMany = 31 Then Exit Sub    'end day will be in column HowMany plus 3
Set rng = Cells(11, HowMany + 3).Offset(, 1).Resize(, 31 - HowMany)
rng.EntireColumn.Hidden = True

End Sub

Regards