Looks like some screenshots were removed so will try to explain without them to reference.
Micron
Post 28 Nov 21 17:44 had an example of a search that was removed that met the criteria.
On Sheet1 there are five columns containing words that will be searched, A to E.
A=3 letter words, B=4 letter...
Micron,
28 Nov 21 17:44
The search results added on date is exactly I'm trying to get.
Get a compile error sub or function not defined on regex_test when trying to run.
I get this message when trying to use regex
29 Nov 21 17:52
Added code to sort to Sub lbSort and get Compile error: Expected...
Hope this helps and not hinder.
Here is the code I'm using.
The search is from strongm post from 18 Nov 21 11:12.
ThisWorkbook
frmSearch.Show vbModeless
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Call condFormat
End Sub
Module1
Option...
>>If you search for 'aabb', do you get only words where you have 2 a's and 2 b's (abba, baba, xabybaz) or do you accept words with just 1 a and 1 b?
There are five columns containing words that will be searched/found.
A=3 letter words, B=4 letter words and so on until E which contains 7 letter...
Strongm,
That was what I was trying to get.
I will work on filtering out the matches longer than the search word and try to get it to sort by smallest to largest.
Doing some searches on that so sure I will get there eventually but you helped with what I was having an issue with.
Thanks again...
No problem.
Thought I was providing the required information.
How about this.
I have a searchable spreadsheet with words in columns A to E.
The words are from 3 to 7 letters in length.
Column A is 3 letter words, B is four letter words and so on until E which is 7 letter words.
I want to be able...
Andy,
Thanks for your patience.
Rules:
Search columns A to E for any word that matches the letters entered into the seach box.
Requirement:
Word size will be from 3 to 7 letters in length.
Specifications:
List found words in listbox.
I'm creating this to help my wife with a word game that she...
Andy,
Apologize for the bad explanation.
It would search columns A to E to find any word that contains the letters provided in the search text box.
In this example four would be the maximum word length because that is the number of letters that was entered in the textbox and searched.
The...
Hello,
How do I unscramble a word using data from the spreadsheet for words that match?
I only want to search the words on the spreadsheet, not an entire dictionary.
The columns are A to E and each has a header.
Word length will be 3 to 7 letters.
As an example if seu was searched it would...
Here is the code I put together that may help someone else.
# Disables smartcard reader, launches IE, and re-enables smartcard reader after four minutes.
#####Prompts for admin credentials
$myWindowsID=[System.Security.Principal.WindowsIdentity]::GetCurrent()
$myWindowsPrincipal=new-object...
Here is the same code with less.
##get admin credentials from smartcard
$creds = Get-Credential
##Broadcom smartcard reader
##capture smartcard reader using hardware ID
$d = Get-PnpDevice | where {$_.HardwareID -like "USB\VID_0A5C&PID_5832&REV_0101&MI_01"}
##disable smartcard reader using...
Here's what I'm trying to do and not sure if it's possible.
Disable a smartcard reader.
Launch IE.
When IE process complete re-enable smartcard reader.
Issue:
It requires admin credentials from smartcard to disable/enable device.
IE cannot run under admin credentials so running .ps1 as admin...
Here is the final product(for now).
Option Explicit
Dim ServerName, Computer, PrintQueue, Input, found, SelectedPrinter
Dim AddPrinter, SetDefault, PrinterName, MSG, Style, Title
Dim Response, WshNetwork
Title = "Y"
ServerName = "PRINTSERVER"
AddPrinter = False
SetDefault = False
'Create...
Yes, and wanted to know if you saw any issues with pulling the name alone like that.
Was planning on using SelectedPrinter as the variable to build the printer.
Great work.
I'm trying to learn...
Do you see any issue with me using this to get the printer name?
SelectedPrinter = Right(PrintQueue.PrinterName, 15)
Once again thanks so much for all of your help with this.
I have tried both codes and still not working.
Like I said this is my first post so sorry if I'm not providing you with the correct information.
combo,
Do I need to Dim foundtext?
I'm guessing that should be the output when it works?
guitarzan,
when I run this all that comes up is "Printer...
Thanks for the input. I have been searching for a few days trying to figure this out.
Here is what I finally came up with:
On Error Resume Next
Dim ServerName, Computer, PrintQueue
ServerName = "PRINTSERVER"
Set Computer = GetObject("WinNT://" & ServerName & ",Computer")
Computer.Filter =...
Here is what I was trying to test:
Dim ServerName, Computer, PrintQueue
ServerName = "Printserver"
Set Computer = GetObject("WinNT://" & ServerName & ",Computer")
Computer.Filter = Array("PrintQueue")
For Each PrintQueue In Computer
rem WScript.Echo PrintQueue.PrinterName
Next
found =...
guitarzan,
That lets me put the \\servername\printername into an array.
How do I search the array and pull the printername?
I have tried using code like the following but am not able to get it to work.
found = false
for i = 0 to ubound(iArray)
if iArray(i) = value then
found...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.