Solved

type mismatch in loop

Posted on 2013-01-20
11
274 Views
Last Modified: 2013-01-20
Hi,
I get a type mismatch error and I have changed to variable types so many times I can't remember where I started! Hopefully someone can point me in the right direction.

The code in question is attached

I have I as String and K as Long. The code stops at line 11.
Maybe it's just bad syntax in the loop. I'm completely lost.
Any help as always is greatly appreciated.

ps
I should probably explain what I'm trying to do.
I want the code to look at the value of A1 in wsht1 ("I") and find that same value in column A of wsht3 ("K"), then paste the range values of wsht1 (C1:AA1) to the corresponding "K" row but offset two columns right (Column C in effect)

I hope I have explained it clear enough.

Set wbk1 = ActiveWorkbook
    Set wsht1 = wbk1.Sheets("Sheet1")
    Set wbk3 = Workbooks.Open(wbk3path) 'Interface workbook
    Set wsht3 = wbk3.Sheets(1)
    wsht3.Range("A1:AA2").Formula = wsht1.Range("A1:AA2").Value
    wsht1.Range("A1").EntireRow.Delete
    wsht1.Range("A1").EntireRow.Delete
Do
    I = wsht1.Range("A1")
    wsht1.Range("C1:AA1").Copy
    K = wsht3.Columns("A:A").Find(What:=I, lookat:=xlWhole)
    wsht3.Range(K).Offset(0, 2).PasteSpecial xlPasteValues
    wsht1.Range("A1").EntireRow.Delete
Loop Until I = ""

Open in new window

0
Comment
Question by:Stephen Byrom
  • 7
  • 2
  • 2
11 Comments
 
LVL 142

Accepted Solution

by:
Guy Hengel [angelIII / a3] earned 250 total points
ID: 38798639
> K = wsht3.Columns("A:A").Find(What:=I, lookat:=xlWhole)
the Find returns a Range object, normally, so if that returns nothing, your error is normal.

try to do this:
Dim findK as object
findK = wsht3.Columns("A:A").Find(What:=I, lookat:=xlWhole)
if findK is not Nothing then
  K = findK.Value
end if 

Open in new window

0
 
LVL 1

Author Comment

by:Stephen Byrom
ID: 38798659
thanks for the input.
I get an error "Invalid use of object" when I run it though, and the "Nothing" is highlighted
0
 
LVL 142

Expert Comment

by:Guy Hengel [angelIII / a3]
ID: 38798715
sorry:

if not ( findK is Nothing ) then
0
 
LVL 1

Author Comment

by:Stephen Byrom
ID: 38798833
Thanks for persevering.
I now get the error "Object variable or With block variable not set"
The code is now
Do
    I = wsht1.Range("A1")
    wsht1.Range("C1:AA1").Copy
    Dim findK As Object
    findK = wsht3.Columns("A:A").Find(What:=I, lookat:=xlWhole)
        If Not (findK Is Nothing) Then
            K = findK.Value
            Range(K).Offset(0, 2).PasteSpecial xlPasteValues
            wsht1.Range("A1").EntireRow.Delete
        End If
Loop Until I = ""
0
 
LVL 43

Assisted Solution

by:Saqib Husain, Syed
Saqib Husain, Syed earned 250 total points
ID: 38798844
set findK = wsht3.Columns("A:A").Find(What:=I, lookat:=xlWhole)
0
Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

 
LVL 1

Author Comment

by:Stephen Byrom
ID: 38798867
Thanks for the input ssaqibh, but i still get the error and I've changed the code to this;
Do
    I = wsht1.Range("A1")
    wsht1.Range("C1:AA1").Copy
    Dim findK As Object
    Set findK = wsht3.Columns("A:A").Find(What:=I, lookat:=xlWhole)
        If Not (findK Is Nothing) Then
            K = findK
            K.Offset(0, 2).PasteSpecial xlPasteValues
            wsht1.Range("A1").EntireRow.Delete
        End If
Loop Until I = ""
0
 
LVL 1

Author Comment

by:Stephen Byrom
ID: 38798909
Tried this also;
Do
    I = wsht1.Range("A1")
    wsht1.Range("C1:AA1").Copy
    Dim findK As Object
    Set findK = wsht3.Columns("A:A").Find(What:=I, lookat:=xlWhole)
        If Not (findK Is Nothing) Then
            K = findK
            wsht3.Range(K).Offset(0, 2).PasteSpecial xlPasteValues
            wsht1.Range("A1").EntireRow.Delete
        End If
Loop Until I = ""

Still get the "Object variable or With block variable not set" error
0
 
LVL 43

Expert Comment

by:Saqib Husain, Syed
ID: 38798944
Ok Try this

Do
    I = wsht1.Range("A1")
    wsht1.Range("C1:AA1").Copy
    Dim findK As Object
    Set findK = wsht3.Columns("A:A").Find(What:=I, lookat:=xlWhole)
        If Not (findK Is Nothing) Then
            K = findK
            wsht3.Range(findK.Address).Offset(0, 2).PasteSpecial xlPasteValues
            wsht1.Range("A1").EntireRow.Delete
        End If
Loop Until I = ""
0
 
LVL 1

Author Comment

by:Stephen Byrom
ID: 38798967
managed it!!
new code is this;
Do
    I = wsht1.Range("A1")
    wsht1.Range("C1:AA1").Copy
    Dim findK As Object
    Set findK = wsht3.Columns("A:A").Find(What:=I, lookat:=xlWhole)
        If Not (findK Is Nothing) Then
            findK.Offset(0, 2).PasteSpecial xlPasteValues
        End If
    wsht1.Range("A1").EntireRow.Delete
Loop Until I = ""
0
 
LVL 1

Author Comment

by:Stephen Byrom
ID: 38798974
I've requested that this question be closed as follows:

Accepted answer: 0 points for olorin57's comment #a38798967
Assisted answer: 250 points for angelIII's comment #a38798639
Assisted answer: 250 points for ssaqibh's comment #a38798844

for the following reason:

Had to split the points. Thanks to you both for your advice and pointers.
0
 
LVL 1

Author Closing Comment

by:Stephen Byrom
ID: 38798975
Had to split the points
Thanks to you both
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
Troubleshooting a Worksheet Graphic 8 25
Excel case statements 3 24
Excel Hyperlink Question 4 31
Issues with DAX Calculated Columns 6 13
A little background as to how I came to I design this code: Around 5 years ago I designed an add-in that formatted Excel files to a corporate standard, applying different cell colours and font type depending on whether the cells contained inputs,…
Freeze panes is an option within all variants of Excel to enable parts of a sheet to remain stationary when the cursor is in another part of the sheet. This is a very useful feature which is overlooked or under used.
The viewer will learn how to create two correlated normally distributed random variables in Excel, use a normal distribution to simulate the return on different levels of investment in each of the two funds over a period of ten years, and, create a …
This Micro Tutorial demonstrates using Microsoft Excel pivot tables, how to reverse engineer competitors' marketing strategies through backlinks.

895 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

11 Experts available now in Live!

Get 1:1 Help Now