İnputbox ile aratma, sayfa kopyalama ve veri çekme

[hknylcn]

Merhaba henüz yeniyim birşeyler yapamaya çalışıyorum ama takıldım. Ekteki dosyada da tarif etmeye çalıştım amacım şu; inputbox a girdiğim veriyi a sütununda aratsın ve bulursa şablon sayfasını kopyalayıp inputboxa girdiğim ismi versin, rakam ve değer sütunlarını yazsın istiyorum ama beceremedim bir türlü yardım ederseniz sevinirim.

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Private Sub CommandButton1_Click()
    
    Dim ara As String, c As Range
    
    ara = Application.InputBox("Aranan Değeri Yazın")
    
    If ara = "" Then Exit Sub
    
    If Not varmi(ara) Then
        Set c = [A:A].Find(ara, LookIn:=xlValues, LookAt:=xlWhole)
        If Not c Is Nothing Then
            Sheets("şablon").Copy After:=Sheets(Sheets.Count)
            ActiveSheet.Name = ara
            ActiveSheet.Range("A5") = ara
            ActiveSheet.Range("B5") = Sheets("Sayfa1").Cells(c.Row, "D")
        End If
    End If
            
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function varmi(adi As String) As Boolean
    On Error Resume Next
    varmi = CBool(Len(Worksheets(adi).Name) > 0)
End Function

.

 

[hknylcn]

Çok teşekkür ederim. Peki arattığım değer 2 yada daha fazla varsa, kaç tane bulduysa o kadar sayfa açması için kodda nasıl bir değişiklik yapmak lazım ?