sayfa adı bulma makro kodu

[bilisim2010]

merhaba aşağıdaki formül ile dosyayı seçip textbox1 e yolunu yazdırıyorum. istediğim textbox2 ye 1 yazdığımda sayfa1 i seçsin 2 yazarsam sayfa2 yi seçsin.

Private Sub CommandButton1_Click()
Dim fso As Object, ad As Object

ChDir ("C:\")
dosya = Application.GetOpenFilename(filefilter:="Tüm Dosyalar (*.*),*.*", Title:="Bir dosya seçiniz")
'If dosya = False Then Exit Sub
Set fso = CreateObject("Scripting.FileSystemObject")
Set ad = fso.Getfile(dosya)

TextBox3.Value = ad.Name
TextBox2.Value = 1
TextBox1.Text = Left(dosya, Len(dosya) - (Len(ad.Name) + 1))


End Sub

 

[volki_112]

merhaba aşağıdaki formül ile dosyayı seçip textbox1 e yolunu yazdırıyorum. istediğim textbox2 ye 1 yazdığımda sayfa1 i seçsin 2 yazarsam sayfa2 yi seçsin.

Private Sub CommandButton1_Click()
Dim fso As Object, ad As Object

ChDir ("C:\")
dosya = Application.GetOpenFilename(filefilter:="Tüm Dosyalar (*.*),*.*", Title:="Bir dosya seçiniz")
'If dosya = False Then Exit Sub
Set fso = CreateObject("Scripting.FileSystemObject")
Set ad = fso.Getfile(dosya)

TextBox3.Value = ad.Name
TextBox2.Value = 1
TextBox1.Text = Left(dosya, Len(dosya) - (Len(ad.Name) + 1))


End Sub

istediğiniz kod

Private Sub CommandButton1_Click()
    Dim fso As Object, ad As Object
    Dim dosya As String

    ChDir ("C:\")
    dosya = Application.GetOpenFilename(filefilter:="Tüm Dosyalar (*.*),*.*", Title:="Bir dosya seçiniz")
    
    ' Kullanıcı iptal ederse çık
    If dosya = "False" Then Exit Sub

    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ad = fso.GetFile(dosya)

    TextBox3.Value = ad.Name
    TextBox2.Value = 1
    TextBox1.Text = Left(dosya, Len(dosya) - (Len(ad.Name) + 1))
    
    ' Sayfa seçim işlemi
    Call SayfayiSec
End Sub

Private Sub TextBox2_Change()
    ' TextBox2 değiştiğinde sayfa seçimi kontrol et
    Call SayfayiSec
End Sub

Private Sub SayfayiSec()
    Dim sayfaNo As Integer
    Dim ws As Worksheet
    
    ' Sayfa numarasını al
    If IsNumeric(Me.TextBox2.Value) Then
        sayfaNo = CInt(Me.TextBox2.Value)
        
        ' Sayfa numarası geçerliyse seç
        If sayfaNo > 0 And sayfaNo <= ThisWorkbook.Sheets.Count Then
            Set ws = ThisWorkbook.Sheets(sayfaNo)
            ws.Activate
        Else
            MsgBox "Geçersiz sayfa numarası!", vbExclamation, "Hata"
        End If
    End If
End Sub

 

[bilisim2010]

istediğiniz kod

Private Sub CommandButton1_Click()
    Dim fso As Object, ad As Object
    Dim dosya As String

    ChDir ("C:\")
    dosya = Application.GetOpenFilename(filefilter:="Tüm Dosyalar (*.*),*.*", Title:="Bir dosya seçiniz")
   
    ' Kullanıcı iptal ederse çık
    If dosya = "False" Then Exit Sub

    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ad = fso.GetFile(dosya)

    TextBox3.Value = ad.Name
    TextBox2.Value = 1
    TextBox1.Text = Left(dosya, Len(dosya) - (Len(ad.Name) + 1))
   
    ' Sayfa seçim işlemi
    Call SayfayiSec
End Sub

Private Sub TextBox2_Change()
    ' TextBox2 değiştiğinde sayfa seçimi kontrol et
    Call SayfayiSec
End Sub

Private Sub SayfayiSec()
    Dim sayfaNo As Integer
    Dim ws As Worksheet
   
    ' Sayfa numarasını al
    If IsNumeric(Me.TextBox2.Value) Then
        sayfaNo = CInt(Me.TextBox2.Value)
       
        ' Sayfa numarası geçerliyse seç
        If sayfaNo > 0 And sayfaNo <= ThisWorkbook.Sheets.Count Then
            Set ws = ThisWorkbook.Sheets(sayfaNo)
            ws.Activate
        Else
            MsgBox "Geçersiz sayfa numarası!", vbExclamation, "Hata"
        End If
    End If
End Sub

süper. seçtiğim sayfanın a b c sütunlarını listboxwiev deki comboboxlarla seçip başka bir exelin a2 b2 c2 sine nasıl yazdırabilirim? listwievimde comboboxlar var ve addıtem olarak a dan e ye kadar harf eklemişim ben a yı seçince bu dosya yolundaki seçtiğim sayfanın a1 ini seçecek. daha sonra bir buton ilede seçtiği sütunlardaki verileri getirip diğer exelimdeki SATİS sayfasına yazdıracak nasıl bir formül gerekir buna