Search the Community

Hi, i am working on little personal code that is based upon an excel list but what is the easiest way to count how many cells in A that has something in it? this is to be used in " For $cellrow = 2 To 10;how to make it count max rows that has something in it? " where 10 is beeing changed to the number of cells that has something in it ;step by step ;1) Open Excel book ;2) Activate correct sheet ;3) Create Internet explorer windows with Cellvalue ;4) Focus IE,and verify that options are existing ;Check if item is still in stock, (not deleted) ; #include #include Local $sFilePath1 = @ScriptDir & "/Autentisering av produkter.xlsx" ;This file should already exist Local $oExcel = _ExcelBookOpen($sFilePath1) _ExcelSheetActivate($oExcel, "ClothingShowroom") If @error = 1 Then MsgBox(0, "Error!", "Unable to Create the Excel Object") Exit ElseIf @error = 2 Then MsgBox(0, "Error!", "File does not exist - Shame on you!") Exit EndIf $ieWindow = _IECreate("about:blank");create Main operation window ;3) and wait for it to load For $cellrow = 2 To 10;how to make it count max rows that has something in it? $sCellValue = _ExcelReadCell($oExcel, $cellrow, 1) _IELoadWait($ieWindow);wait for operation _IENavigate($ieWindow, $sCellValue);Enter website from Cell $i _IELoadWait($ieWindow);wait for operation ;4) Local $sText = _IEBodyReadText($ieWindow) If StringInStr($sText, "No products match your search criteria, please try again. ") Then ;;; I found it _ExcelWriteCell($oExcel, "Ikke på lager", $cellrow, 2) ;Write to the Cell Else ;;; didn't find it _ExcelWriteCell($oExcel, "På lager", $cellrow, 2) ;Write to the Cell If StringInStr($sText, "Small+#+55") Then _ExcelWriteCell($oExcel, "OK", $cellrow, 3) ;Write to the Cell else _ExcelWriteCell($oExcel, "Nei", $cellrow, 4) ;Write to the Cell _IELoadWait($ieWindow);wait for operation EndIf _IELoadWait($ieWindow);wait for operation If StringInStr($sText, "Medium+#+56") Then _ExcelWriteCell($oExcel, "OK", $cellrow, 4) ;Write to the Cell else _ExcelWriteCell($oExcel, "Nei", $cellrow, 4) ;Write to the Cell _IELoadWait($ieWindow);wait for operation EndIf If StringInStr($sText, "Large+#+57") Then _ExcelWriteCell($oExcel, "OK", $cellrow, 5) ;Write to the Cell else _ExcelWriteCell($oExcel, "Nei", $cellrow, 5) ;Write to the Cell _IELoadWait($ieWindow);wait for operation EndIf EndIf Next _IELoadWait($ieWindow);wait for operation _ExcelBookSave($oExcel) _ExcelBookClose($oExcel) ;Close Excel book after is done _IEQuit($ieWindow)

Hi, i wanted to make inputbox password, need to get it's chars length in it, because the "password char" is too secure and i need the user to know if he is writing or not!! here's my effort Global $length, $Pw $Pw = InputBox("Security", "Type password to Encrypt/Decrypt file." & @CRLF & "Notice: password case sensitive" & @CRLF & "Pw length: " & $length, "", "ٌ", 220, 150) $length = StringLen($Pw) MsgBox(0, "", $length) i tried to put $length above $Pw but didn't work too. thanks