Excel VBA - Bir Aralık'ı Sıfırla

Question

Makroda, aynı işleme her bir Çalışma Sayfasında uygularım.

Her bir Çalışma Sayfasında farklı olabilecek belirli bir metin içeren bir sütun belirlemek istiyorum.

kod aşağıdaki gibidir: İlk çalışma sayfası üzerinde

For Each Cell_version In Ws.Range("1:1") 
    If Ws.Range(convertir(Cell_version.Column) & "1") = "ICI" Then 
     Column_version = convertir(Cell_version.Column) 
     Trouve_col = True 
     MsgBox (Column_version) 
    End If 
If Trouve_col = True Then Exit For 
Next Cell_version 

, her şey fonksiyonlarını uygun şekilde ve uygun sütuna column D metni bulur. İkinci Çalışma sayfasında, sütun D sütunundan sonraysa, aynı zamanda işlev görür. Ancak, column A, B, or C ise, istenen metni içeren sütunu döndürmez. Bu sorunu nasıl çözebilirim?

Answer 1

Benim VBA biraz paslı, ama bir çalışma sayfası aramak için en hızlı yoldur beri hep belki böyle, Find komutu tercih:

Sheets("YourSheet").Select 

Cells(1, 1).Select 

Set found = Cells.Find(What:="ICI", After:=ActiveCell, LookIn:=xlValues, _ 
    LookAt:=xlColumn, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ 
    MatchCase:=False, SearchFormat:=False) 

If Not found Is Nothing Then 
    found.Activate  
    MsgBox(Selection.Row) 
End If