TreeView'i Menü olarak kullanma!!!

[ocamsul]

Arkadaşlar öncelikle iyi çalışmalar dilerim. İlk kez kullandığım nesnelerden biri olan TreeView'i bir nevi Menü olarak kullanmak istiyorum. Ancak bu menüde seçim yapıldığı zaman belirlemiş olduğum Userform ların aktif hale gelmesini istiyorum. Bu konuda benzer örnek kodlar buldum bunu anlattığım şekilde nasıl düzenliyebilirim?

 

[Zeki Gürsoy]

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
    With Node
        If .Children = False Then
          Select Case Node.Index
            Case 2: UserForm2.Show
            Case 3: UserForm3.Show
            Case 4: UserForm4.Show
          End Select
        End If
    End With
End Sub

Private Sub UserForm_Initialize()
    Dim oNode As Node
    With TreeView1
            Set oNode = .Nodes.Add(, , "W" & z, ThisWorkbook.Name)
            oNode.Expanded = True
            .Nodes.Add "W" & z, tvwChild, , "UserForm2"
            .Nodes.Add "W" & z, tvwChild, , "UserForm3"
            .Nodes.Add "W" & z, tvwChild, , "UserForm4"
    End With
End Sub

 

[bono]

ocamsul ellerine sağlık, çok güzel olmuş ve benimde çok işime yarayacak.

Ben bu fikir üzerine biraz daha kendime geliştirme yapmaya çalıştım ancak başarılı olamadım.

Benim derdim;

Treeview ile istenilen sheet e gidildiğinde o sheeti otomatik olarak maille yollayabilmek. Bunun için ekteki çalışmayı yaptım ama nedense çalışmıyor.

Daha doğrusu treeview ile gidilen sheeti workbooktan ayırıyor ancak içine bizim formun bulunduğu sayfayı yapıştırıyor ve maillede yollamıyor.

Ekte dosya var ve benim kodlarım var. Mail adındaki butona tanımladım. İlgilenen bir arkadaş olursa çok makbule geçecek.

iyi akşamlar

 

[bono]

Anemos daha öncede sen çözüm getirdiğin için senden yardım istesem. Mail gönderme işlemini yaptırmamız mümkünmü? Tabi yardım edebilecek diğer arkadaşlarda olursa çok sevinirim

 

[ocamsul]

SN: anemos, üsdat çok teşekkür ederim. Tam olarak buydu. Sağolun.

 

[Zeki Gürsoy]

Anemos daha öncede sen çözüm getirdiğin için senden yardım istesem. Mail gönderme işlemini yaptırmamız mümkünmü? Tabi yardım edebilecek diğer arkadaşlarda olursa çok sevinirim

Aşağıda mail yollama ile ilgili bir örnek mevcuttur.

Yazdırma alanının jpeg olarak mail ile gönderilmesi.

 

[bono]

anemos ilgilendiğin için teşekkürler. Ancak zaten benim gönderdiğim dosyada commandbuton içerisine eklediğim mail gönderme kodu diğer dosyalarımda sorunsuz çalışıyor.

Bu dosyada çalışmama sebebi tamamen treewiev ile seçtiğim sheete gittiğinde o sheeti seçili saymaması. Birde makronun treewiev dosyasında olması ve gidilen workbook u kumanda edememesi sorunu var.

Dosyayı açıp denedinizmi bilmiyorum ama kod kendince doğru çalışıyor. Ancak istediğim sheeti mail içerisine koyup göndermede yukarıdaki engellere takılıyor.

Yardımcı olabileceğiniz bir konu ise ve yardımcı olabilirseniz gerçekten çok sevinirim

 

[bono]

ben excelde bir sürü dosya açık çalışmak zorunda olanlardanım ve bu program gerçekten mail atabilirsem işime çok yarayacak. Yukarıda göndermiş olduğum dosyam ve sorum ile ilgili yardımcı olabilirseniz sevinirim

 

[bono]

Arkadaşlar ne kadar uğraştımsa boşa çıktı bir türlü treeview kullanarak gittiğim sheeti mail atmayı başaramadım. Benim için çok büyük kolaylık olabilecek bu durum için lütfen yardım edin.

 

[hsayar]

Sorunuzun anlaşılması açısından soruyorum
siz ağaç nesnesinde seçili çalışmasayfasını yeni bir kitap olarak kaydedip... elmek.xls olarak göndermek mi istiyorsunuz?

 

[bono]

öncelikle ilgilendiğiniz için teşekkürler.

aynen sizin söylediğiniz gibi olacak. Hatta ben göndermiş olduğum dosyanın içerisine bir kod eklemiştim. Ağaç nesnesinden gidilmiyor olsaydı o kod çalışıyordu. Ben ağaç nesnesinden seçtiğimde ise bir türlü o çalışmasayfasını görmüyor.

Belki başka bir kodla veya benim koduma ilave bir yazılımla bu işi başarabileceğimizi düşünüyorum.

Yardım ederseniz sevinirim

 

[bono]

hsayar bu konuda bir çözüm bulunabilirmi? Yardımcı olabilirmisiniz?

 

[hsayar]

bende acemiyim önce öğrenip sonra yaparınm bir şeyler arşatırıyorum.

 

[hsayar]

Düzeltilmiştir.... trewiwv de sayfayı aktif eden satır kapalı kalmış.
Gönderildi mesajı eklendi.

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
    With Node
        If .Children Then
        Else
            If Workbooks(.Parent.Text).Windows(1).Visible Then
                Workbooks(.Parent.Text).Sheets(.Text).Activate
            Else
                MsgBox "HATA"
            End If
        End If
    End With
End Sub

Private Sub UserForm_Initialize()
   Dim g, h, oMappe As Workbook, oNode As Node, z
  With TreeView1
      For Each g In Workbooks
          z = z + 1
           Set oMappe = g
         Set oNode = .Nodes.Add(, , "W" & z, oMappe.Name)
          oNode.Expanded = True
          For Each h In oMappe.Sheets
             Set oNode = .Nodes.Add("W" & z, tvwChild, , h.Name)
           Next h
   Next g
  End With
End Sub

Private Sub CommandButton2_Click()
'******************************************************
'* Sadece Aktif sayfayı MS Outlook ile yollamak için  *
'* yapılmış bir çalışmadır                            *
'* Micosoft Outlook X.0 referansı eklenmelidir !      *
'* Burası Excel vadisi ...                            *
'* Raider ®                                           *
'* Subat 2005                                         *
'******************************************************
'<<<<<<<<<<<<<<<<<<<<<<<KONTROLLER>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
    'Aktif internet ba&#287;lant&#305;s&#305; varm&#305; kontrol et.
    If TestInternetConnection = False Then
        MsgBox "BA&#286;LANTI YOK": Exit Sub
    End If
    
    'Micosoft Outlook X.0 referans&#305; yoksa ekler....
    Dim bool As Boolean
    strRefPath = "C:\Program Files\Microsoft Office\OFFICE11\msoutl.olb" 'ADO
    bool = False
    For Each ref In ThisWorkbook.VBProject.References
        If ref.fullPath = strRefPath Then bool = True
    Next
    If bool = False Then ThisWorkbook.VBProject.References.AddFromFile (strRefPath)
    
    'Nesne Kontrol
    For Each nsn In Controls
    If TypeName(nsn) = "TextBox" Then  ' NESNENIN ADI YAZILACAK
        If nsn.Value = "" Then
            aa = Replace(nsn.Name, "txt", "lbl")
            MsgBox Controls(aa).Caption & " Textboxu Bo&#351; B&#305;rak&#305;lamaz!"
            nsn.SetFocus: Exit Sub
        End If
    End If
    Next nsn
    'MsgBox "kontroller tamamland&#305;.":    Exit Sub
'<<<<<<<<<<<<<<<<<<<<<<<&#304;&#350;LEMLER>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
    Dim OutApp As Outlook.Application
    Dim NewMail As Outlook.MailItem
    Dim ShName As String, WbName As String
    Dim i As Integer
   ' Aktif Sayfay&#305; yeni kitaba kopyala ve kapat
    ShName = ActiveSheet.Name:                  Sheets(ShName).Copy
    WbName = "C:\" & ShName & ".xls":           ActiveWorkbook.SaveAs WbName
    Workbooks(ShName & ".xls").Close SaveChanges:=True

   'Olu&#351;turulan kitab&#305;  e-mail ile g&#246;nder
    Set OutApp = New Outlook.Application
    Set NewMail = CreateItem(olMailItem)
    
    StrKime = txtKime.Value
    strKonu = txtKonu.Value
    strMsj = txtMsj.Value
    
    With NewMail
        .To = StrKime '"xxxxx@hotmail.com"
        .Subject = strKonu '"Deneme"
        .Body = strMsj '"Bu e-mail deneme amac&#305;yla g&#246;nderilmi&#351;tir."
        .Attachments.Add WbName
        .Save
        .Send
    End With
    
    'Tamamland&#305; mesaj&#305;:
    MsgBox StrKime & " adresine" & ShName & " sayfas&#305; g&#246;nderildi."
    'olu&#351;turulmu&#351; de&#287;i&#351;&#351;ken ve dosyalar&#305; sil....
    Set NewMail = Nothing:    Set OutApp = Nothing
    Kill WbName
End Sub

şu anda dosya ekleyemiyorum.

siz önce 3 lbl, 3 texbox ekleyin

name lerinide

aşağıdaki gibi düzenleyin
lblKime / txtKime
lblKonu / txtKonu
lblMsj / txtMsj




sonra bir modul ekleyip aşağıdaki kodları yapıştırın

Option Private Module
Declare Function InternetCheckConnection Lib "wininet.dll" _
        Alias "InternetCheckConnectionA" (ByVal lpszUrl As String, _
        ByVal dwFlags As Long, ByVal dwReserved As Long) As Long
       
Declare Function InternetGetConnectedStateEx Lib "wininet.dll" _
       (ByRef lpdwFlags As Long, ByVal lpszConnectionName As String, _
        ByVal dwNameLen As Integer, ByVal dwReserved As Long) As Long
'
Dim RunWhen As Double
Const RunWhat = "CheckInternetState"
'
Sub Auto_Open()
    Call CheckInternetState
End Sub
'
Sub StartTimer()
    RunWhen = Now + TimeSerial(0, 5, 0)
    Application.OnTime earliesttime:=RunWhen, Procedure:=RunWhat, Schedule:=True
End Sub
'
Sub StopTimer()
    On Error Resume Next
    Application.OnTime earliesttime:=RunWhen, Procedure:=RunWhat, Schedule:=False
End Sub
'
Sub Auto_Close()
    Call StopTimer
End Sub
'
Sub CheckInternetState()
Dim RetVal As Long
Dim strConn As String * 255
   ' Range("A1") = Empty
   ' Range("B1") = "Checking ...."
    If TestInternetConnection = True Then
     '   Range("A1") = TestInternetConnection
        RetVal = InternetGetConnectedStateEx(RetVal, strConn, 254, 0)
     '   Range("B1") = strConn
        Call StopTimer
        Exit Sub
    End If
    'Range("A1") = TestInternetConnection
    'Range("B1") = "No connection !"
    Call StartTimer
End Sub
'
Function TestInternetConnection() As Boolean
    'Adapted from :
    'KPD-Team 2001
    'URL: http://www.allapi.net/
    If (InternetCheckConnection("http://www.allapi.net/", &H1, 0&) = 0) Then
        TestInternetConnection = False
    Else
        TestInternetConnection = True
    End If
End Function

NOT: benim şimid farkettiğim ve aşamadığım bir sorun var:
xxxx@yyy.zzz elmek gönderildikten sonra outloku başlat demeden elmekler adrrese teslim edilmiyor.

 

[Zeki Gürsoy]

Yapıda "TestInternetConnection" fonksiyonu mevcut değil.

 

[hsayar]

sonunda dosyayıda ekledim..... modülüde ekledim.

 

[bono]

hsayar iki gündür şehir dışında olduğum mesajını yeni gördüm. Gerçekten çok uğraşmışsın teşekkürler. Programı denedim ancak tam olarak isteneni yaptıramadım. Mail gönderirken formun olduğu sheeti gönderiyor. Ben ise treview dan seçtiğim sheeti göndermek istiyorum. Bu programla bunu başaramıyorum. Birde artık treeview seçilen sheete gitmiyor. Sende de bu sorun oluyormu bilmiyorum?

Belki bu mesaja bakan arkadaşlar merak ediyorlardır sorunu kısaca anlatmak istiyorum;

treeview kullanarak seçilen sheete gitmek ve içeriği görmek, o gidilen sheeti istersek maille (ms outlook) gönderebilmek (yeni mail açarak, içerisine dosyayı yapıştırmak şeklindede olabilir. Subject, body kısımları filan sonradan doldurulabilinir).

Benim ilk yolladığım dosyada mail gönderme kodu var ancak Treeview ile istediğimiz sheete gidebiliyoruz ancak gittiğimiz sheeti seçili hale getiremiyorum. Getirsek bile , kod treeview kayıtlı olduğu dosyada olduğundan seçili dosyaya mail gönder komutunu verdiremiyorum.

 

[hsayar]

ilk önce aşağıdaki kodları değiştirin

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
    With Node
        If .Children Then
        Else
            If Workbooks(.Parent.Text).Windows(1).Visible Then
                Workbooks(.Parent.Text).Sheets(.Text).Activate
            Else
                MsgBox "HATA"
            End If
        End If
    End With
End Sub

olmazsa 4. mesajdaki kodların tümünü kopyalayın yeniden yapıştırın. bende farkettim sadece kodları yazdım. dosya eklemedim.

 

[bono]

kodları değiştirdim ve artık program çalışıyor. Harikasın hsayar, ellerine sağlık.

güzel bir gün dilerim

 

[hsayar]

est... forumdan öğrendiklerimiz....