Şifremi/Kullanıcı Adımı Unuttum
Bağlan Google+ ile Bağlan Facebook ile Bağlan
Şimdi Ara

Excel Vb kodları ( Çok Acil )

Daha Fazla
Bu Konudaki Kullanıcılar: Daha Az
1 Misafir Kullanıcı, 1 Masaüstü Kullanıcı
18
Cevap
0
Favori
423
Tıklama
Cevapla
Tüm Forumlar >> Web Tasarım - Programlama >> Yazılım Geliştirme >> Excel Vb kodları ( Çok Acil )
Sayfaya Git:
Sayfa:
1
Giriş
Mesaj
  • Yüzbaşı
    370 Mesaj
    quote:

    Private Sub CommandButton1_Click()
    Worksheets("ekle").Select
    Dim bak As Range
    For Each bak In Range("a2:a100" & WorksheetFunction.CountA(Range("a2:a65000")))
    If StrConv(bak.Value, vbUpperCase) = StrConv(UserForm2.TextBox12.Value, vbUpperCase) Then
    bak.Select
    UserForm2.TextBox10.Value = ActiveCell.Offset(0, 0).Value
    UserForm2.TextBox11.Value = ActiveCell.Offset(0, 1).Value
    UserForm2.TextBox12.Value = ActiveCell.Offset(0, 2).Value
    UserForm2.TextBox3.Value = ActiveCell.Offset(0, 3).Value
    UserForm2.TextBox4.Value = ActiveCell.Offset(0, 4).Value
    UserForm2.TextBox5.Value = ActiveCell.Offset(0, 5).Value
    UserForm2.TextBox6.Value = ActiveCell.Offset(0, 6).Value
    UserForm2.TextBox7.Value = ActiveCell.Offset(0, 7).Value
    UserForm2.TextBox8.Value = ActiveCell.Offset(0, 8).Value
    UserForm2.TextBox9.Value = ActiveCell.Offset(0, 9).Value

    Exit Sub

    End If
    Next bak
    MsgBox "Aradığınız sıra noda bir kayıt bulunamadı"
    End Sub


    Arkadaşlar bu benim excel de yaptığım bir örnek için arama kodları ama sanrım bir hata var olmuyor.Bilen varsa acil yardım edebilir mi ???



    |
    |
    _____________________________




  • Binbaşı
    1243 Mesaj
    quote:

    Orjinalden alıntı: Greenleaf

    quote:

    Private Sub CommandButton1_Click()
    Worksheets("ekle").Select
    Dim bak As Range
    For Each bak In Range("a2:a100" & WorksheetFunction.CountA(Range("a2:a65000")))
    If StrConv(bak.Value, vbUpperCase) = StrConv(UserForm2.TextBox12.Value, vbUpperCase) Then
    bak.Select
    UserForm2.TextBox10.Value = ActiveCell.Offset(0, 0).Value
    UserForm2.TextBox11.Value = ActiveCell.Offset(0, 1).Value
    UserForm2.TextBox12.Value = ActiveCell.Offset(0, 2).Value
    UserForm2.TextBox3.Value = ActiveCell.Offset(0, 3).Value
    UserForm2.TextBox4.Value = ActiveCell.Offset(0, 4).Value
    UserForm2.TextBox5.Value = ActiveCell.Offset(0, 5).Value
    UserForm2.TextBox6.Value = ActiveCell.Offset(0, 6).Value
    UserForm2.TextBox7.Value = ActiveCell.Offset(0, 7).Value
    UserForm2.TextBox8.Value = ActiveCell.Offset(0, 8).Value
    UserForm2.TextBox9.Value = ActiveCell.Offset(0, 9).Value

    Exit Sub

    End If
    Next bak
    MsgBox "Aradığınız sıra noda bir kayıt bulunamadı"
    End Sub


    Arkadaşlar bu benim excel de yaptığım bir örnek için arama kodları ama sanrım bir hata var olmuyor.Bilen varsa acil yardım edebilir mi ???



    Hatayıda yazsaydın fazla Kasmazdık :)

    Olası seçenekleri listelerim ama bu çalışmayı görmeden zor !
    1- içerik farkı
    2 - yanlış atama
    büyük ihtimal Hatayı yaz Bakarız



    < Bu mesaj bu kişi tarafından değiştirildi Aspci79 -- 16 Mayıs 2005, 20:02:46 >
    |
    |
    _____________________________
    "Data: Hayat Like Ref Null."




  • Yüzbaşı
    370 Mesaj
    aslında hata yok olay şu ara diye button oluşturup bunu içine yazınca görevini yapmıyor.Sadece tıklatıp duruyorsun yani...Arama yapmıyor yani...Hata vermiyor.
    |
    |
    _____________________________
  • Binbaşı
    1243 Mesaj
    quote:

    Orjinalden alıntı: Greenleaf
    aslında hata yok olay şu ara diye button oluşturup bunu içine yazınca görevini yapmıyor.Sadece tıklatıp duruyorsun yani...Arama yapmıyor yani...Hata vermiyor.


    Sadece arama kodu ile zor eğer örneği E-Mailime atarsan uygun bir zamanda inceler ve fikir veririm.
    |
    |
    _____________________________
    "Data: Hayat Like Ref Null."
  • Yüzbaşı
    370 Mesaj
    e mailini alabilirmiyim ? msn de olabilir ?
    |
    |
    _____________________________
  • Binbaşı
    1243 Mesaj
    Özür dilerim eklemeyi unutmuşum :)


    edit:Sildim !



    < Bu mesaj bu kişi tarafından değiştirildi Aspci79 -- 20 Mayıs 2005, 1:01:28 >
    |
    |
    _____________________________
    "Data: Hayat Like Ref Null."
  • Yüzbaşı
    370 Mesaj
    Yolladım kontrol et bi :) şimdi den teşekkürler
    |
    |
    _____________________________
  • Binbaşı
    1243 Mesaj
    Gönderdiğiniz Dosyayı şimdi uykulu gözlerle inceledim fakat kod felan göremedim !!!
    Acaba ben mi göremedim yoksa dosyada bir iki show ve select methodundan başka kod yokmu?? :)
    |
    |
    _____________________________
    "Data: Hayat Like Ref Null."
  • Yüzbaşı
    370 Mesaj
    pardon :) yanlış olmuş şimdi doğrusu geliyor.

    Edit : Yolladım.



    < Bu mesaj bu kişi tarafından değiştirildi Greenleaf -- 20 Mayıs 2005, 1:22:48 >
    |
    |
    _____________________________
  • Binbaşı
    1243 Mesaj
    quote:

    Private Sub CommandButton1_Click()
    Worksheets("ekle").Select
    Dim bak As Range
    For Each bak In Range("a2:a100" & WorksheetFunction.CountA(Range("a2:a65000")))
    If StrConv(bak.Value, vbUpperCase) = StrConv(UserForm2.TextBox13.Value, vbUpperCase) Then
    bak.Select
    UserForm2.TextBox10.Value = ActiveCell.Offset(0, 0).Value
    UserForm2.TextBox11.Value = ActiveCell.Offset(0, 1).Value
    UserForm2.TextBox12.Value = ActiveCell.Offset(0, 2).Value
    UserForm2.TextBox3.Value = ActiveCell.Offset(0, 3).Value
    UserForm2.TextBox4.Value = ActiveCell.Offset(0, 4).Value
    UserForm2.TextBox5.Value = ActiveCell.Offset(0, 5).Value
    UserForm2.TextBox6.Value = ActiveCell.Offset(0, 6).Value
    UserForm2.TextBox7.Value = ActiveCell.Offset(0, 7).Value
    UserForm2.TextBox8.Value = ActiveCell.Offset(0, 8).Value
    UserForm2.TextBox9.Value = ActiveCell.Offset(0, 9).Value

    Exit Sub


    Textbox isimleri ile yaptığın atamalar yanlış.Koyu renkle belirttiğim yerlerin isimlerini kontrol et varolup olmadıklarını! koda textbox yazmışsın ama form üzerinde belirtilen isimde nesne yok! nesne isimlerini güzelce bir düzenle önce bence ! yarın akşam devam ederiz incelemeye bugünlük bu kadar zaman ayırabileceğim..

    kolay gelsin...
    |
    |
    _____________________________
    "Data: Hayat Like Ref Null."




  • Yüzbaşı
    370 Mesaj
    evet onları bende görmüştüm ki düzeltmiştim kayıt etmemişim sanırım neyse sorun o değil onu düzeltince de Arama yapmıo girilen kayıtlar üzerinde..Teşekkür ederim bu kadar zaman ayırman büyük bişey.Yarın o konuda yardımcı olursan sevinirim.

    İyi geceler.
    |
    |
    _____________________________
  • Yüzbaşı
    370 Mesaj
    Aspci79 acaba bakabildin mi veya başka yardım edebilecek ?
    |
    |
    _____________________________
  • Yarbay
    2157 Mesaj
    Sorunu aşağıdaki siteye sorarsan cevabını hemen alırsın.

    http://www.excel.web.tr/index.php
    |
    |
  • Yüzbaşı
    370 Mesaj
    quote:

    Orjinalden alıntı: mert25


    Sorunu aşağıdaki siteye sorarsan cevabını hemen alırsın.

    http://www.excel.web.tr/index.php




    merak etme baktım bu konuyla ilgili nerede ne var biliyorum bulamadığım için açtım zaten saol genede..
    |
    |
    _____________________________
  • Binbaşı
    1243 Mesaj
    quote:

    Worksheets("ARA").Select
    Dim bak As Range
    Dim a As Integer
    a = 0
    '&
    'Worksheets("Ekle").Range("A1:A10000")
    For a = 0 To WorksheetFunction.CountA(Range("a1:a65000"))
    bak.Value = bak.Value + 1
    If UserForm1.TextBox13.Value = ActiveCell.Offset(0, a) Then
    bak.Select
    UserForm1.TextBox13.Value = ActiveCell.Offset(0, 0).Value
    UserForm1.TextBox11.Value = ActiveCell.Offset(0, 1).Value
    UserForm1.TextBox12.Value = ActiveCell.Offset(0, 2).Value
    UserForm1.TextBox3.Value = ActiveCell.Offset(0, 3).Value
    UserForm1.TextBox4.Value = ActiveCell.Offset(0, 4).Value
    UserForm1.TextBox5.Value = ActiveCell.Offset(0, 5).Value
    UserForm1.TextBox6.Value = ActiveCell.Offset(0, 6).Value
    UserForm1.TextBox7.Value = ActiveCell.Offset(0, 7).Value
    UserForm1.TextBox8.Value = ActiveCell.Offset(0, 8).Value
    UserForm1.TextBox9.Value = ActiveCell.Offset(0, 9).Value
    a = a + 1
    End If
    Next a
    If UserForm1.TextBox12.Value = "" Then
    MsgBox "Aradığınız sıra noda bir kayıt bulunamadı"
    End If


    Veridiğin örneğe göre biraz deiştirdim kendi mantığıma göre ; Burada dikkat edilecek 2 husus var
    1. si nesne isimlerini kendine göre düzenle öncelikle !
    2. si kasıtlı olarak 1 run bir mantık hatası bıraktım kod içerisinde bu kodun ödev olduğunu düşünerek onlarıda kendin bulursun artık zahmet olmassa ;)

    Kolay gelsin...
    |
    |
    _____________________________
    "Data: Hayat Like Ref Null."




  • Yüzbaşı
    370 Mesaj
    Çok sağol yarın denerim artık bulurum bu kadarını bile yapman çok güzel bişey çok saol çok saol
    |
    |
    _____________________________
  • Binbaşı
    1243 Mesaj
    Aslında o kodlar pek içime sinmedi Hafta sonunun verdiği rahatlıkla biraz daha inceledim kodları ! :)

    Worksheets("EKLE").Select

    Dim bak As Range
    Dim x As Integer
    x = 0
    For Each bak In Range("A1:A10")
    bak.Select

    x = x + 1
    If UserForm1.TextBox13.Value = Columns("A" + x) Then -> hata burada
    MsgBox "Kayıt Bulundu !!! "
    bak.Interior.ColorIndex = 8

    'kayıt bulununca ne olacaksa onu yaz....
    End If

    Next bak


    Senin koduna göre bu şekilde kısalttım ben biraz daha olayın mantığını anlaman açısından ! Bu sefer hata yerini de gösterdim. Biraz incelersen basitçe bulabilirsin ...
    Kolay Gelsin...
    |
    |
    _____________________________
    "Data: Hayat Like Ref Null."
  • Binbaşı
    1243 Mesaj
    Kişisel mesajın kapalı olduğu içi buraya yazmak zorunda kaldım. Gönderdiklerim iletilemedi.

    If UserForm1.TextBox13.Value = bak.Text Then

    :)


    Kolay gelsin...
    |
    |
    _____________________________
    "Data: Hayat Like Ref Null."
  • Er
    1 Mesaj
    teşekkürler

    ben onun adına teşekkür edeyim tanımıyorum gerçi ama
    |
    |
    _____________________________
    ''Bütün fakeler toplandık toplandık; sorduk biz neden banlandık? neden banladık ?''
HızlıCevap
Sayfaya Git:
Sayfa:
1
Reklamlar
Masal
Kurumsal Web Tasarım Şirketi
Mobilya Takımları
haberler
Bu sayfanın
Mobil sürümü
Mini Sürümü

BR4
0,406
1.2.165

Reklamlar
- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.