günlü evrak takip userformlu (yardım)

[asilme]

arkadaşlar ekli dosyada anlatmaya çalıştım tarih itibari ile 10 gün ve altında işlem yapılması gereken evrak olduğu zaman excel dosyası açılır açılmaz user form açılıyor ve evrakın iki sütunu user formda gözüküyor.buraya kadar olanın sitemizden inceleye inceleye yaptım ancak o satırın tamamını formda gösteremiyorum onun göstermesini nasıl yaparım ayrıca mümkünse userformda gözüken günü gelmiş evrakı tıklayınca o satıra gidebilirmiyim yardımlarınız için şimdiden teşekkürler

 

[asilme]

arkadaşlar mümkün değil mi yapılması mümkünse yardımcı olabilirmisiniz

 

[Murat OSMA]

UserForm_Initialize olayı kodlarını bu şekilde değiştirip deneyiniz;

Private Sub UserForm_Initialize()
    Dim X As Long, Satır As Long
    Me.Caption = "SİGORTA HATIRLATMALARI"
    ListBox1.ColumnWidths = "70;120"
    ListBox1.ColumnCount = 6
    For X = 2 To Range("E65536").End(3).Row
    If Cells(X, 5) >= Date And Cells(X, 5) <= Date + 10 Then
            With ListBox1
                .AddItem
                .List(Satır, 0) = Format(Cells(X, 5), "dd.mm.yyyy")
                .List(Satır, 1) = Cells(X, 2)
                .List(Satır, 2) = Cells(X, 3)
                .List(Satır, 3) = Cells(X, 4)
                .List(Satır, 4) = Cells(X, 5)
                .List(Satır, 5) = Cells(X, 6)
                 Satır = Satır + 1
            End With
        End If
    Next
    Call PlayIt("C:\Windows\Media\Tada.wav ", 1)
End Sub

Ayrıca yapılan değişikliğe bakıp, aradı farkı ve nasıl yapıldığını anlayabilirsiniz.

 

[asilme]

sn murat osma elinize sağlık sorunsuz çalıştı emeğinize sağlık hakkınızı helal edin

birşey sorabilirmiyim listede birkaç tane değer varken herhangi birine tıkladığımda ona gidebilirmiyim arabul gibi mümkünmü

 

[Murat OSMA]

Mümkündür..

Şu kodları ilave edin;

Private Sub ListBox1_Click()
    Dim Rky As Range
    For Each Rky In Range("B3:B" & Range("B65536").End(3).Row)
        If ListBox1.Column(1) = Rky.Value Then
            Rky.Select
        End If
    Next Rky
   Set Rky = nothing
End Su

b

 

[asilme]

hocam gerçekten elinize sağlık hakkınızı helal edin

 

[asilme]

murat osma hocam kodu çalıştırdım elinize sağlık birşey sorabilirmiyim

user form1 e gelen değerlerin aralığını nasıl ayarlayabilirim a sütununda 4 rakam var b sütununda 30 harf var ancak hepsi aynı aralıkta bunları nasıl ayarlayabilirim. yani excel sayfamda a sütunun genişliği 7 b sütununki 37 c sütunu 20 ben form üzerindede ayarlama yapmak istiyorum nasıl yapabilirim

 

[Murat OSMA]

Sitede arama yapabilirsiniz meselâ.

http://www.excel.web.tr/f48/listbox-sutun-geni-lioi-t74435.html
http://www.excel.web.tr/f48/listbox-sutun-geni-lioi-t17198.html

 

[asilme]

Sitede arama yapabilirsiniz meselâ.

http://www.excel.web.tr/f48/listbox-sutun-geni-lioi-t74435.html
http://www.excel.web.tr/f48/listbox-sutun-geni-lioi-t17198.html

ListBox4.ColumnHeads = True
kolon=10
ListBox4.ColumnCount = kolon
Set sh = Sheets(ActiveSheet.Name)
For a = 1 To kolon
yer = sh.Columns(a).Width
deg = deg & CLng(yer) & ";"
Next
ListBox4.ColumnWidths = deg




ve
Private Sub UserForm_Initialize()
Set Baglan = CreateObject("Adodb.connection")
Baglan.provider = "Microsoft.jet.oledb.4.0"
Baglan.Open "c:\Personel\veri.mdb"
Label1.Caption = "Veri Tabanı ile bağlantı kuruldu."
StrSql = "select tc & adi_soyadi & dk &terfi from veri"
Set RS = Baglan.Execute(StrSql)
ListBox4.Column = RS.getrows(RS.RecordCount)
ListBox4.ColumnHeads = True
kolon=10
ListBox4.ColumnCount = kolon
Set sh = Sheets(ActiveSheet.Name)
For a = 1 To kolon
yer = sh.Columns(a).Width
deg = deg & CLng(yer) & ";"
Next
ListBox4.ColumnWidths = deg
RS.Close
End Sub

kodlar var ancak bu kodu tam nereye uygulayacağımı anlamadım

 

[Murat OSMA]

Bu şekilde yapın;

Private Sub UserForm_Initialize()
    Dim X As Long, Satır As Long
    Me.Caption = "SİGORTA HATIRLATMALARI"
    kolon = 6
    ListBox1.ColumnCount = kolon
    For a = 1 To kolon
        yer = Sayfa1.Columns(a).Width
        deg = deg & CLng(yer) & ";"
    Next a
    ListBox1.ColumnWidths = deg
    For X = 2 To Range("E65536").End(3).Row
    If Cells(X, 5) >= Date And Cells(X, 5) <= Date + 10 Then
            With ListBox1
                .AddItem
                .List(Satır, 0) = Format(Cells(X, 5), "dd.mm.yyyy")
                .List(Satır, 1) = Cells(X, 2)
                .List(Satır, 2) = Cells(X, 3)
                .List(Satır, 3) = Cells(X, 4)
                .List(Satır, 4) = Cells(X, 5)
                .List(Satır, 5) = Cells(X, 6)
                 Satır = Satır + 1
            End With
        End If
    Next
    Call PlayIt("C:\Windows\Media\Tada.wav ", 1)
End Sub

 

[asilme]

hocam kolon = 6 kısmında hata veriyor kod çalışmıyor

 

[Murat OSMA]

Dosyanızdaki Option Explicit kodlarını silin.

 

[asilme]

teşekkürler hocam hakkınızı helal edin

 

[Murat OSMA]

Rica ederim, hoşça kalın...

 

[sirkülasyon]

Sayın Murat OSMA abim
Emeğinizden bende yararlandım.Hakkınızı helal ediniz

 

[Murat OSMA]

Helâl olsun.. ne demek...
Zaten birileri faydalansın diye burada değil miyiz ?

Hoşça kalın !