listindexden değilde hücreden bulup veri silmek

[Ayhan Ercan]

selam arkadaşlar,

listboxun üzerinde hangi veriyi seçiyorsam o verinin silinmesini istiyorum.
listboxum tarihe göre değiştiği için (değişken) listbox.listindex i silinecek satır olarak atayamıyorum.

ekli dosya yolluyorum. umarım sorum nettir...

 

[Ayhan Ercan]

arkadaşlar sanırım sorunum anlaşılmadı. örnek dosyada userformu çalıştırdığınız vakit, calendar nesnesinde tarihi değiştirdiğiniz zaman listboxdaki veriler değişiyor. (sadece 27.05.2008 ve 28.08.2008 tarihlerinde)

 

[Orion1]

Dosyanız ekte.

 

[Ayhan Ercan]

çok teşekkür ederim evren abi, çok sağolasın...

 

[Orion1]

çok teşekkür ederim evren abi, çok sağolasın...

Sende sağolasın kardeşim.

 

[Ayhan Ercan]

Evren abi, memur olarak çalıştığım için eklemiş olduğun dosyayı daha yeni inceleme fırsatı buldum.
Öğrenmeye çok hevesli biri olarak birkaç sorum olacaktı..

dosyda;
ilk açılışta (Userform_initialize olayı ile) Listboxdaki rakamlar kuruşlu (500,00) olmasına rağmen calendar nesnesinden gün secerek listboxu yenilediğimiz vakit rakamlar kuruşsuz olarak görünüyor.


kodlarımda hücrelere rakam atarken Val(Textbox1) olarak yazmış olduğum satırları Cdbl(Textbox1) olarak değiştiridm. Bu seferde "500,20" yazılanı "500.2" olarak gösteriyor. yani ufak bir "kuruş" sorunum var.

birde ;

[B][COLOR=royalblue]ReDim myarr(1 To 7, 1 To 1)[/COLOR]
[/B]For Each tarih In Range("B2:B" & son)
    If CDate(tarih.Value) = Calendar1.Value Then
        a = a + 1
        [COLOR=royalblue][B]ReDim Preserve myarr(1 To 7, 1 To a)
[/B]        [B]myarr(1, a) = tarih.Row[/B]
[/COLOR]        For i = 2 To 7
            myarr(i, a) = tarih.Offset(0, i - 1)
        Next i
    End If
Next tarih

ReDim ve Preserve ne zaman ve nasıl kullanılır.
bu kodlarda mavi olarak işaretlediğim satırları bana açıklayabilirmisin. Teşekkür ederim...

 

[Orion1]

Evren abi, memur olarak çalıştığım için eklemiş olduğun dosyayı daha yeni inceleme fırsatı buldum.
Öğrenmeye çok hevesli biri olarak birkaç sorum olacaktı..

dosyda;
ilk açılışta (Userform_initialize olayı ile) Listboxdaki rakamlar kuruşlu (500,00) olmasına rağmen calendar nesnesinden gün secerek listboxu yenilediğimiz vakit rakamlar kuruşsuz olarak görünüyor.


kodlarımda hücrelere rakam atarken Val(Textbox1) olarak yazmış olduğum satırları Cdbl(Textbox1) olarak değiştiridm. Bu seferde "500,20" yazılanı "500.2" olarak gösteriyor. yani ufak bir "kuruş" sorunum var.

birde ;

[B][COLOR=royalblue]ReDim myarr(1 To 7, 1 To 1)[/COLOR]
[/B]For Each tarih In Range("B2:B" & son)
    If CDate(tarih.Value) = Calendar1.Value Then
        a = a + 1
        [COLOR=royalblue][B]ReDim Preserve myarr(1 To 7, 1 To a)
[/B]        [B]myarr(1, a) = tarih.Row[/B]
[/COLOR]        For i = 2 To 7
            myarr(i, a) = tarih.Offset(0, i - 1)
        Next i
    End If
Next tarih

ReDim ve Preserve ne zaman ve nasıl kullanılır.
bu kodlarda mavi olarak işaretlediğim satırları bana açıklayabilirmisin. Teşekkür ederim...

Redim komutu ile 2 boyutlu bir dizi tanımı yapılıyor.
Dağa sonrada redim preserve komutu ile bu dizide boyutların m iktarı değiştiriliyor.mesela ikinci boyutu a kadar değişiyor.Ve preseve ilede değişirken içinde bulunan eski verileri saklıyor.
Diğer sorudada hücreyi formatlayınız.

range("A1").numberformat="#,##0.00"

 

[Ayhan Ercan]

Redim komutu ile 2 boyutlu bir dizi tanımı yapılıyor.
Dağa sonrada redim preserve komutu ile bu dizide boyutların m iktarı değiştiriliyor.mesela ikinci boyutu a kadar değişiyor.Ve preseve ilede değişirken içinde bulunan eski verileri saklıyor.
Diğer sorudada hücreyi formatlayınız.

range("A1").numberformat="#,##0.00"

tekrar teşekkür ederim Evren abi, senin ve diğer bilgili ve bilgisini esirgemeyen tüm arkadaşlar oldukça öğrenecem ben bu işi.... k::