Compare letters on Vba

[sinanvarann]

Hey guys I have a word like "abadi" and i want to enter a new word like "abc". If this abc letter a b and c are used on this word for once. Output should be at B1 cell. "abadi" has not "c" thats why its shouldn't work.
I coded it but there "abadi" consist 2 times "a" letter thats why counter takes "a" second time its shouldn't be. If i found "a" letter pass it in the another loop. I don't need another ways of solution I need only extract second same letter.
Program link is https://easyupload.io/el0xyb

 

[Saurabhj]

Hi,

Can you please rephrase your query. I have downloaded the file but unable to understand the requirement.

With few examples, can you share the expected output?

Thanks,
Saurabh

 

[Fluff]

Maybe

Sub sinanvarann()
   Dim Txt As String
   Dim i As Long
   
   Txt = InputBox("Enter any word")
   For i = 1 To Len(Txt)
      If InStr(1, Cells(1, 1), Mid(Txt, i, 1), vbTextCompare) = 0 Then
         Exit Sub
      End If
   Next i
   Cells(1, 2) = Cells(1, 1)
End Sub

 

[sinanvarann]

Hi,

Can you please rephrase your query. I have downloaded the file but unable to understand the requirement.

With few examples, can you share the expected output?

Thanks,
Saurabh

 

[sinanvarann]

Maybe

Sub sinanvarann()
   Dim Txt As String
   Dim i As Long
  
   Txt = InputBox("Enter any word")
   For i = 1 To Len(Txt)
      If InStr(1, Cells(1, 1), Mid(Txt, i, 1), vbTextCompare) = 0 Then
         Exit Sub
      End If
   Next i
   Cells(1, 2) = Cells(1, 1)
End Sub

Thank you but I cannot use another ways. Its an assignment thats why I can use only for, do while , if else , goto commands. If you try to fix my mistake in that file or adding somethings. I will be happy.

 

[Fluff]

Its an assignment

In that case you should have said so in your original post. We are not here to do your homework for you, but will happily point you in the right direction.

If you try to fix my mistake

You haven't posted any code for us to look at.

 

[sinanvarann]

In that case you should have said so in your original post. We are not here to do your homework for you, but will happily point you in the right direction.

You haven't posted any code for us to look at.

Okey thank you. So can i get any help to fix my program speed. I finished the code finally. But Its so slow. Excel freezing. I tried to use DoEvent after for loop. Still freezing.

 

[Fluff]

Can you please post the code you are using.