Posts by alring

Hi

In a userform I have two textboxes. What I write in these two textboxes I want to put in two different cells. I have this code here. But there is something wrong. Please help me.

Private Sub CommandButton1_Click()
Dim aarstal As Long
Dim dato As String
aarstal = TextBox1
dato = TextBox2




End Sub


Private Sub CommandButton2_Click()
Dim aarstal As Long
Dim dato As String
  With Sheet1
    .Cells(1, 1) = aarstal
    .Cells(2, 1) = dato
End With
  Application.ScreenUpdating = False
Unload Me
End Sub

Alring

Re: Input box

Hi Roy

As the macro is now then comes there two input boxes. If I understand you correct thenis it not possible to have two lines in one input box. If that's correct then I will make a Userform instead.

Thank you for your help. :thanx:

Re: Input box

Hi Roy

The two input lines that I want to have in one inputbox is not to be gathered. What i write in the two inputlines I will insert in two different cells in the worksheet.

Hi there

I ahve a hyperlink that opens an another documnet. I use this hyperlink in different documents. But most of the name for the document that i want to open is always the same. It's ony´ly the last part that change.

So in one document the hyperlink opens 6666-DOC-402-03.pdf. But in an another document the hyperlink opens 7777-DOC-402-04.pdf. Is it possible to write the hyperlink so it automatic take the highest number after the last -. The number in front of the name e.i."6666" I change manualy.

Alring

Hi there

I have an inputbox with one input line. Is it possible to have two input lines in one input box?

Right now I have two input boxes to write the two things I want to write. But it will be great only to have one input box with two input lines.

Dim Message As String
  Message = "Input year." _
    & vbCrLf & vbCrLf
  Dim Messagea As String
  Messagea = "Input date" _
    & vbCrLf & vbCrLf




  ' Titel.
  Dim Title As String
  Title = "Input"
 


  Dim Default As Long
  Default = Year(Now())
  Dim Defaulta As String
  Defaulta = "Date"


  Dim nata As Long
  aarstal = Application.InputBox _
    (Message, Title, Default, Type:=1)
  Dim natb As String
  nata = Application.InputBox _
    (Messagea, Title, Defaulta, Type:=3)
    If aarstal = 0 Then End

Alring

Re: Text in inputbox

Hi thomach

Thank you for your reply :thanx:

I have tried to run the macro with and without Option Explicit and the macro works in both ways. The mistake I made with your code was still to have As long instead of As String.

Alring

Re: Text in inputbox

Hi Will

Also thank you to you for your reply. :thanx:

I was using Long because it was working with the numbers in another macro. Now I can see that I can use string no matter if it's letters or numbers. But I will remember the numbercodes you gave me.

Alring

Re: Text in inputbox

Hi Thomach

Thank you so much for your help. It works :thanx:

I can see that you wrote in the beginning of the macro:

Option Explicit

I tried the macro without that code and then it didn't work. So what does that do with a macro??

Alring

Re: Text in inputbox

Hi Will

When I try to run the macro with 2 instead of 1 then I get the message "Type mismatch"

Re: Text in inputbox

Sorry!!!!!

With Ark1

Should have been:

With Sheet1

The reason for the mistake is that my Excel is danish.

Alring

Hi there

I have this code here. But when I run it then the only thing I can right in the inputbox is numbers. But I want to write letters in the inputbox. What is wrong with the code?? :?

Please someone help me.

Sub letter()
'
  ' Titel.
  Dim Title As String
  Title = "Write letter here"
  
  Dim Message As String
  Message = "What is the letter?" _
    & vbCrLf _


  Dim nat As Long
  nat = Application.InputBox _
    (Message, Title, default, Type:=1)


  Application.ScreenUpdating = False


  With Ark1
    .Cells(2, 4) = nat
  End With


  Application.ScreenUpdating = True
End Sub

Alring

Re: If function in VBA

Hi Fengore and Dave

I have solve the problem. Both of you thnak you for your help. :thanx:

The code work when it look like this:

Sub maerkedage()


    With Sheet1
    If UCase(.Cells(1, 1)) = "N" And _
       UCase(.Cells(2, 1)) = "N" And _
       UCase(.Cells(3, 1)) = "N" Then
    .Cells(1, 4) = "Yes"
End If
End With
End Sub

Again. Thank you :thanx:

Alring

Re: If function in VBA

Hi Dave

Thank you for your reply. :thanx:
There is just one small problem. I would like to use .cells(1,1) and .cells(2,1) and .cells(3,1) instead of A1 and A2 and A3. I have tries to change your code to that but I can't get to work. Maybe it's because it's not possible. or maybe I write the code wrongly. The last thing is very possible. :? Is it possible to use .cells instead of letter and number for the cells??

Alring

Hi there

I have (for me) a big problem. In the attached document I have a formula in cell D7. D7 links to cell A7:A9. And it works. Now I want that I can do the same thing in VBA but the result should be in cell D1. D1 links to cell A1:A3.

I have made the formula in cell D7 to explain what it is I want . I'm not going to use that one in the future but only the VBA code.

Please someone help me.

Alring

Re: Conditinal formatting according to text

Hi Bob

I have found out that it's better to write

Case Else 
    icolor = none

If there is only text in cell A1 then the other cells will get the same color as A1.

Re: Conditinal formatting according to text

Hi Bob

Beside that then was it a very good code you wrote.

Thanks :thanx:

Alring

Re: Conditinal formatting according to text

Hi Bob

If I write the code like this then it works

Private Sub Worksheet_Calculate()
    Dim icolor As Integer
    Dim MyText As String
    Dim Target As Range
     
    For Each Target In Range("A1:A10")
         
        MyText = Target.Value
        Select Case MyText
        Case "Yes"
            icolor = 6
        Case "No"
            icolor = 12
        Case "Not sure"
            icolor = 7
        Case "Don't care"
            icolor = 53
        Case "Why?"
            icolor = 15
        Case "Possibly"
            icolor = 42
        Case Else
             icolor = 2
        End Select
         
        Target.Interior.ColorIndex = icolor
    Next Target
     
End Sub

If I don't write

Case Else
             icolor = 2

Then will all the cells that is ampty under one cell that is not empty be the same color as the one above.

Alring

Re: Conditinal formatting according to text

Hi Norie

Thats true. Is that possible??

Re: Conditinal formatting according to text

I used isnumber because I didn't wnat to have N/A written in the cell.

Re: Conditinal formatting according to text

Hi Roy

Here is a small example.
A1 and A2 is without "If(isnumber)"

Alring