ExcelVBA.Net sitesine katkıda bulunabilirsiniz

[Volkan CANPOLAT]

Tarkan Bey Merhaba,
Bende detaylı bir hem departman hemde bayilerin bilgilerini içeren bu tarz bir tablo hazırlıyordum fakat benim ki tbai ki çok basit gelişmiş filitreden yapmış olduğum bir tabloydu

Acaba sizin bu tablonuz da ;
Adı SoyAdı
Mail Adresi
Telefon ve Adres
BU bilgilerin olduğu bölümün yazılarını nasıl değiştirebilirim bir de o bölümde ki seçenekleri nasıl çoğaltabilirim
Örnek

Bayi Adı
Resmi Adı
Markası şeklinde eklemek istediğim bir kaç nokta var
bana bu konuda yardımcı olabilir misiniz?

Saygılarımla,
İyi Çalışmalar...

[hakilkan]

Sayfa açıldığı anda geliştirici bölümüne girdiğiniz anda oradan bu labelları değiştirme imkanınız olur.

[osmanlixxx]

ALIŞMA_PBS_2015.rar

ALIŞMA_PBS_2015.rar

İki buton daha ekleyip Sil ve Değiştir seçenekleri ekledim.

Kod: Tümünü seç

Private Sub CommandButton4_Click()
Dim bul As Range
For Each bul In Sayfa1.Range("b2:b" & Range("b65536").End(3).Row)
    If bul.Value = ComboBox1.Value Then
        bul.Select
        Selection.EntireRow.Delete
        For i = 2 To Range("a65536").End(3).Row
            Cells(i, 1).Value = i - 1
        Next i
    End If
Next bul
End Sub

Private Sub CommandButton5_Click()
Dim bul As Range
For Each bul In Sayfa1.Range("b2:b" & Range("b65536").End(3).Row)
    If bul.Value = ComboBox1.Value Then
        bul.Offset(0, -1).Activate
        bul.Offset(0, 1).Value = TextBox1.Value
        bul.Offset(0, 2).Value = TextBox2.Value
        bul.Offset(0, 3).Value = TextBox4.Value
    End If
Next bul
End Sub

Yeni dosyayı bu mesajdan indirebilirsiniz. Yazılan bilgiler ( telefon, email, adres ) gerçek değildir. Lütfen gerçek olarak dikkate almayınız.

Tarkan Bey Merhaba,
Yapmış olduğunuz çalışmanın üzerinde biraz değişikliler yapmaya çalıştım ama bir yerde hata yapıyorum bulamıyorum. Yardımcı olabilirseniz çok sevinirim. Dosya ektedir.
Teşekkürler iyi çalışmalar.

ALIŞMA_PBS_2015.rar

[osmanlixxx]

ALIŞMA_PBS_2015.rar

ALIŞMA_PBS_2015.rar

İki buton daha ekleyip Sil ve Değiştir seçenekleri ekledim.

Kod: Tümünü seç

Private Sub CommandButton4_Click()
Dim bul As Range
For Each bul In Sayfa1.Range("b2:b" & Range("b65536").End(3).Row)
    If bul.Value = ComboBox1.Value Then
        bul.Select
        Selection.EntireRow.Delete
        For i = 2 To Range("a65536").End(3).Row
            Cells(i, 1).Value = i - 1
        Next i
    End If
Next bul
End Sub
ŞİFREYİ UNUTMUŞUM ŞİFRE:2212

Private Sub CommandButton5_Click()
Dim bul As Range
For Each bul In Sayfa1.Range("b2:b" & Range("b65536").End(3).Row)
    If bul.Value = ComboBox1.Value Then
        bul.Offset(0, -1).Activate
        bul.Offset(0, 1).Value = TextBox1.Value
        bul.Offset(0, 2).Value = TextBox2.Value
        bul.Offset(0, 3).Value = TextBox4.Value
    End If
Next bul
End Sub

Yeni dosyayı bu mesajdan indirebilirsiniz. Yazılan bilgiler ( telefon, email, adres ) gerçek değildir. Lütfen gerçek olarak dikkate almayınız.

Tarkan Bey Merhaba,
Yapmış olduğunuz çalışmanın üzerinde biraz değişikliler yapmaya çalıştım ama bir yerde hata yapıyorum bulamıyorum. Yardımcı olabilirseniz çok sevinirim. Dosya ektedir.
Teşekkürler iyi çalışmalar.

ALIŞMA_PBS_2015.rar

[osmanlixxx]

Ekteki dosyanın şifresi 2212

[Ali ÖZ]

Userform initialize olayındaki bu satırı,

Kod: Tümünü seç

Dim i As Byte

Bu şekilde değiştirin.

Kod: Tümünü seç

Dim i As Integer

[osmanlixxx]

Bu şekilde değiştirin.

Kod: Tümünü seç

Dim i As Integer

[/quote]

Bu şekilde çalıştı ama diğer komutlarımda da sıkıntı var. Mesela "bul", "kaydet" vs. Birde integer yazınca ne demiş olduk Tarkan Bey' in yaptığında byte yazıyor farkı nedir acaba.

[osmanlixxx]

Cevabınız içinde ayrıca teşekkür ederim.

[Ali ÖZ]

Diğer sorunlar nelerdir ?

Byte ve integer değişken türleridir.

Byte : 1 Byte’lik işaretsiz tamsayı tipidir. 0 ile 255 arası değer alabilir.

Integer : 2 bytelik işaretli tamsayı tipidir. -32768 ile 32768 arasında değer alabilir.

[osmanlixxx]

Mesela "bul", "kaydet" vs. butonlarda

[Ali ÖZ]

Kodların içindeki tüm "PBS" leri sayfa9 olarak değiştirin.

[osmanlixxx]

İlginize teşekkür ederim.
Takıldığım yerde yine rahatsız ederim.
İyi çalışmalar

[osmanlixxx]

Merhaba Ali Bey;
Forum içerisindeki bir arkadaşın hazırlamış olduğu personel formunu alıp kendime uyarladım fakat orada da kaydet, bul, değiştir, sil butonlarını ve resim yükleme olayını yapamadım. Yardımız için şimdiden teşekkürler.Dosyayı ekliyorum.

[osmanlixxx]

Selamün aleyküm
Uğraşınca biraz "kaydet" butonunu yaptım yerli yerinde kaydetti.Ama diğer butonları düzeltemedim. Yardımlarınızı bekliyorum.Son halini ekliyorum. Teşekkürler iyi çalışmalar.

[osmanlixxx]

Selamünaleyküm
Yardımcı olabilecek kimse yok mu bu konuda? Forum da benzer örnekleri araştırdım ama yapamadım.

[osmanlixxx]

Private Sub Label8_Click()
Dim bul As Range
For Each bul In Sayfa9.Range("b2:b" & Range("b65536").End(3).Row)
If bul = ComboBox1 Then
bul.Offset(i, -1).Activate
bul.Offset(i, -3) = TextBox1
bul.Offset(i, 2) = TextBox2
bul.Offset(i, -1) = TextBox3
bul.Offset(i, 3) = TextBox4
TextBox4 = Format(TextBox4, "dd.mm.yyyy")
bul.Offset(0, 15) = TextBox5
bul.Offset(0, -2) = TextBox6
bul.Offset(0, -1) = TextBox7
bul.Offset(0, 1) = TextBox8
bul.Offset(0, 22) = TextBox9
bul.Offset(0, 10) = TextBox10
bul.Offset(0, 23) = TextBox11
bul.Offset(0, 19) = TextBox12
bul.Offset(0, 24) = TextBox13
bul.Offset(0, 25) = TextBox14
bul.Offset(0, 12) = TextBox15
bul.Offset(0, -4) = TextBox16
bul.Offset(0, 26) = TextBox17
bul.Offset(0, 27) = TextBox18
bul.Offset(0, 20) = TextBox19
bul.Offset(0, 28) = TextBox20
bul.Offset(0, 5) = TextBox21
bul.Offset(0, 29) = TextBox22
bul.Offset(0, 4) = TextBox23
bul.Offset(0, 13) = TextBox24
bul.Offset(0, 16) = TextBox25
bul.Offset(0, 17) = TextBox26
bul.Offset(0, 21) = TextBox27
bul.Offset(0, 6) = TextBox28
TextBox28 = Format(TextBox28, "dd.mm.yyyy")
bul.Offset(0, 8) = TextBox29
TextBox29 = Format(TextBox29, "dd.mm.yyyy")
bul.Offset(0, 7) = TextBox30
bul.Offset(0, 30) = TextBox31
bul.Offset(0, 31) = TextBox32
Else
TextBox3 = Sayfa9.Range("a65536").End(3).Value + 1
End If
Next bul
If TextBox9.Value <> "" Then
İmage6.Picture = LoadPicture("d:\PBS\RESİMLER" & TextBox9.Value & ".jpg")
Else
Set veri = Nothing
End If
Next i
End Sub


Bu kodları eklediğimde "next without for" mesajı çıkıyor hangi kodu bitirmemişim bi inceleyebilir misiniz.

[osmanlixxx]

Private Sub Label8_Click()

Kod: Tümünü seç

Dim bul As Range
For Each bul In Sayfa9.Range("b2:b" & Range("b65536").End(3).Row)
    If bul = ComboBox1 Then
            bul.Offset(i, -1).Activate
        bul.Offset(i, -3) = TextBox1
        bul.Offset(i, 2) = TextBox2
        bul.Offset(i, -1) = TextBox3
        bul.Offset(i, 3) = TextBox4
        TextBox4 = Format(TextBox4, "dd.mm.yyyy")
        bul.Offset(0, 15) = TextBox5
        bul.Offset(0, -2) = TextBox6
        bul.Offset(0, -1) = TextBox7
        bul.Offset(0, 1) = TextBox8
        bul.Offset(0, 22) = TextBox9
        bul.Offset(0, 10) = TextBox10
        bul.Offset(0, 23) = TextBox11
        bul.Offset(0, 19) = TextBox12
        bul.Offset(0, 24) = TextBox13
        bul.Offset(0, 25) = TextBox14
        bul.Offset(0, 12) = TextBox15
        bul.Offset(0, -4) = TextBox16
        bul.Offset(0, 26) = TextBox17
        bul.Offset(0, 27) = TextBox18
        bul.Offset(0, 20) = TextBox19
        bul.Offset(0, 28) = TextBox20
        bul.Offset(0, 5) = TextBox21
        bul.Offset(0, 29) = TextBox22
        bul.Offset(0, 4) = TextBox23
        bul.Offset(0, 13) = TextBox24
        bul.Offset(0, 16) = TextBox25
        bul.Offset(0, 17) = TextBox26
        bul.Offset(0, 21) = TextBox27
        bul.Offset(0, 6) = TextBox28
        TextBox28 = Format(TextBox28, "dd.mm.yyyy")
        bul.Offset(0, 8) = TextBox29
        TextBox29 = Format(TextBox29, "dd.mm.yyyy")
        bul.Offset(0, 7) = TextBox30
        bul.Offset(0, 30) = TextBox31
        bul.Offset(0, 31) = TextBox32
    Else
        TextBox3 = Sayfa9.Range("a65536").End(3).Value + 1
    End If
Next bul
If TextBox9.Value <> "" Then
İmage6.Picture = LoadPicture("d:\PBS\RESİMLER" & TextBox9.Value & ".jpg")
Else
Set veri = Nothing
End If
Next i
End Sub


Bu kodları eklediğimde "next without for" mesajı çıkıyor hangi kodu bitirmemişim bi inceleyebilir misiniz.

Arkadaşlar yardımcı olabilecek kimse yok mu?

[feraz]

Kodda Nex i fazladan yazılmış sanki.

[feraz]

Hatta bazı yerlerdede i ler var oralarda silinip ayarlanmalı bence.Koda bakınca bunları gördüm eğer kod tam yazıldıysa.

[Ali ÖZ]

Bu butonundaki bu satırı,

Kod: Tümünü seç

For Each bul In Sayfa9.Range("b2:b" & Range("b65536").End(3).Row)

Bu şekilde değiştirip,ilgili textlere ilgili sütunları atayın.

Kod: Tümünü seç

For Each bul In Sayfa9.Range("f2:f" & Sayfa9.Range("b65536").End(3).Row)

Diğerlerine zaman buldukça bakarım.