Comparing excel lists
Use following formula to determine whether a value in one column is in another column and if not then return 1
=IF(IFERROR(MATCH(A2,B$2:B$4117,0),-1)=-1,1,”")
Letting the web deliver business results you want
Archive for the ‘IT’ Category.
Use following formula to determine whether a value in one column is in another column and if not then return 1
=IF(IFERROR(MATCH(A2,B$2:B$4117,0),-1)=-1,1,”")
Sometimes when you are preparing your internet marketing data for upload to your site you need to remove tabs from you site so your database etc does not get confused
use the excel clean() function
This is a useful macro but be aware that the field limit is 1028 characters!
Sometimes when you are using internet marketing you need to understand difficult functions in excel to keep you one step ahead of the competition. This one entered as an array reverses the digits in a number.
=SUM(VALUE(MID(A1,ROW(INDIRECT(”1:”&LEN(A1))),1))*10^(ROW(INDIRECT(”1:”&LEN(A1)))-1))
Generally this works fine except for when number ends withn zero
Given a long list of urls in an excel spreadsheet this macro will automatically insert their related images into adject cells.
Sub imageExport()
Dim i
i = 1
Dim bContinue
bContinue = True
While bContinue
snapshot = Cells(i, 1).Value
If snapshot = “” Then
bContinue = False
Else
Cells(i, 2).Select
ActiveSheet.Pictures.Insert(snapshot).Select
i = i + 1
End If
Wend
End Sub
Sub ExportMyPicture()
Dim MyChart As String, MyPicture As String
Dim PicWidth As Long, PicHeight As Long
Application.ScreenUpdating = False
On Error GoTo Finish
MyPicture = Selection.Name
With Selection
PicHeight = .ShapeRange.Height + 8
PicWidth = .ShapeRange.Width + 8
End With
Charts.Add
ActiveChart.Location Where:=xlLocationAsObject, Name:=”Sheet1″
Selection.Border.LineStyle = 0
MyChart = Selection.Name & ” ” & Split(ActiveChart.Name, ” “)(2)
With ActiveSheet
With .Shapes(MyChart)
.Width = PicWidth
.Height = PicHeight
End With
.Shapes(MyPicture).Copy
With ActiveChart
.ChartArea.Select
.Paste
End With
.ChartObjects(1).Chart.Export Filename:=”MyPic.jpg”, FilterName:=”jpg”
.Shapes(MyChart).Cut
End With
Application.ScreenUpdating = True
Exit Sub
Finish:
MsgBox “You must select a picture”
End Sub
Wanted to be able to publish posts away from pc and have just spent quite a while trying to get moblog working on my xda orbit - kept getting an error when I was trying to retrieve blogs when setting up profile. the error was “there was an error”.
anyway looked at loads of posts but couldn’t find anything. well, I got it sorted now. as with a lot of things it’s v simple when you know the answer. I had to enable xml-rpc remote connections on wordpress settings. obvious really I suppose !
Posted from moBlog – mobile blogging tool for Windows Mobile