veri ayıklama veya dolu hücresay

[Altay3555]

Selamlar,
Konu başlığını seçmek en zor işlerden birisi galiba,ne istediğini tam olarak da bilmeyince..
İşte tam bu noktada uzmanların aklı devreye giriyor ve problem hallediliyor.
Ekli dosyada problemimi açıklamaya çalıştım.
Dilerim doğru adrestedir.
Sevgilerimle...

 

[fedeal]

dosyanızekte,iyi çalışmalar.

 

[Altay3555]

Selam fedeal kardeşim.
Sana nasıl teşekkür edeceğimi bilemiyorum.
Emeğine sağlık,kolay gelsin....

 

[fedeal]

ricaederim iyi çalışmalar.

 

[Altay3555]

Selamlar olsun...
İnceledim,mükemmel çalışıyor.
Formülleri P ye koymuşsunuz.
Haziran ayından alınan veriler her ay değişiyor ve 2000 e yakın kayıt yeniden geliyor.Veri aktar butonu ile bunlar veri sayfasına aktarıyorum.Aynı veriler kalıyor,Yeni gelenler ekleniyor ve veri sayfasındaki benzersiz kayıtlar siliniyor.Veri aktarımı 65000 satır ve IV arasını alınca,sanırım P silinen kayıtlarımız olduğunda P deki formül de gidiyor.Toplamlar yanlış veriyor.
neticede ya P yi korumalı,Ya P de formüller silindikçe otomatik doldurma ile yeni formül yazılmalı ya da bizim işimizde kullanacağımız Hazirandan alınan verilerin sadece en fazla 5000 satır ve (I) ya kadar olan kısmın aktarımını sağlamak..Bu da Hazirandaki vba da bu alanları sınırlamak.Ben 65000 i buldum lakin harfi bulamadım.
saygılarımla.

(Bir başka linkte konuya benzer bir bölüm bulunca oraya da yazmıştım.Mükerrer oldu ama !...)

Selamlar...

 

[fedeal]

If Worksheets("VERİ").Cells(i, 1).Value = yer Then
deg = 1
End If
Next i
If deg = 0 Then
For J = 1 To 16
Worksheets("VERİ").Cells(sat, J).Value = Worksheets(ActiveSheet.Name).Cells(n, J).Value
Next J
sat = sat + 1
End If
Next n

bu kesit aktar kodunuzdan eğer I'YA kadar yeterse aktarılması kırmızı olan 16'yı 15 yapın

 

[fedeal]

yada en güzeli 5000 satırla formülle uğraşmıyalım aktar kodunun sonuna bu kodları ekleyin;

For fd = 2 To WorksheetFunction.CountA(Worksheets(ActiveSheet.Name).Range("A2:A65000")) + 1
Worksheets("VERİ").Cells(fd, 16).Value = "=COUNTA(RC[-6]:RC[-2])"
Worksheets("VERİ").Cells(fd, 16).Value = Worksheets("VERİ").Cells(fd, 16).Value
Next

saygılar.

 

[Altay3555]

Selamlar kardeş..
15 i uyguladım,mükemmel oldu.size çok ama çok teşekkür ederim.
emeğinize yüreğinize sağlık..
görüşmek dileğiyle..

 

[Altay3555]

aktar komutunda pürüz

yada en güzeli 5000 satırla formülle uğraşmıyalım aktar kodunun sonuna bu kodları ekleyin;

For fd = 2 To WorksheetFunction.CountA(Worksheets(ActiveSheet.Name).Range("A2:A65000")) + 1
Worksheets("VERİ").Cells(fd, 16).Value = "=COUNTA(RC[-6]:RC[-2])"
Worksheets("VERİ").Cells(fd, 16).Value = Worksheets("VERİ").Cells(fd, 16).Value
Next

saygılar.

Selamlar kardeş.
Bir önceki mesajda 16 yı 15 yaptım,formülü (P) silmeden aktarma yapıyor.
Kodu uygulamayadım.
Bu arada ortaya çıkan bir iki durum oluşunca sizi rahatsız etmemek adına direkt size değilde genele bir iki ufak duruma ait dosya düzeltilmesi amacıyla gönderdim.çözümümüz tıkandı.uygulama ile ortaya çıkan bu durumdan nasıl kurtulurum bilemedim.
Yardımınızı bekliyorum.
Sevgilerimle..

 

[fedeal]

*Kayıt formunda Sırala bölümü çalışmaz oldu,en iyi çalışan yedek çalışmamdan Kodu aldım kopyaladım ama yine de çalışmadı..1004 hata kodu veriyor…

ben böyle bir hata almadım.

*Kullandıkça açığa çıkan bir durum da şu…Haziran ayından veri aktarımı TC numarasına göre oluyor.Lakin hazirandaki verilerde sokaklarda
telefonlarda medeni durumda değişiklik olduğu zaman maalesef Veri formuna aktarmıyor.
*Formumuzun aktar bölümünün özelliği verideki kayıtları TC ye kontrol edecek,yeni veri varsa aktaracak,veri formunda olupta haziranda olmayan
kişi kayıtları silinecek.
*Lakin aktarım yaparken ABCDEFGH sütunlarındaki değişiklikler olacak.IJKLMN deki değişiklik olmayacak.
O kişiye ait olan bu sonraki sütunlar kişiye ait olarak kalacak.

bu durumu aktarma kodlarını değiştirererk çözdüm sanırım inceleyin,

*Form üzerinde TC yi sınırlamıştık ama az rakam olursa 11 haneli diyor,çok yazınca da kabul ediyor ,anlamadım gitti.Kodu kontrol edilecek.

bunuda hallettim,

**Veri sayfasının artalanının papirüs yaprağı gibi veya kurumuş yaprak gibi renkli olması ve formda işlem yaparken sadece aktif hücrenin
o an için vurgulu olması mümkünmüdür.Form üzerinde sıra numarsı yazıyor ama yinede değişiklik yapılacak satırın aktif olması iyi olur.olmasada olur.

olmasada olur demişiniz uğraşmadım.

Kırmızı kayıtları görmeniz açısından örnek yaptık.Hazirandaki yeni geleni ekleyecek,Verideki kaydı silecek.

bu halloldu.

inceleyin eksiklileri düzeltiriz saygılar.

 

[Altay3555]

selamlar kardeşim.hepsi halloldu elinize sağlık..
ama sırala da hala problem var sanırım.soyada göre sırla diyorum veya tc ye göre diyorum ama olmuyor.
Hata kodu 1004 ve altında
Range sınıfının sort yöntemi başarısız diyor...
tşk ederim.

 

[Altay3555]

selam hocam

bir karışıklık oldu galiba.benden kaynaklanan..
düzeltip gönderdiğiniz formda haziran ayında olmamaması gereken 2 sütun vardı.düzletmeleri en son gönderdiğimde değil de 1806 da yapınca galiba benim oluşturduğum ama bir işe yaramadığı kesin 21.06 tarihine ait oluşturduğum modüller galiba gereksiz oldu.silmeye cesaret edemedim.
saygılar.

 

[Altay3555]

çok uğraştım ama hala form üzerindeki sıralama komutunu çalıştıramadım.ne soyada nede diğer verilere göre sıralıyor.eski çalışan formlara bakıyorum kodlar birebir aynı,acaba gereksiz modüllerden mi kaynaklanıyor.modül 5 ve 6...
Hata kodu 1004 ve altında
Range sınıfının sort yöntemi başarısız.
hatamız bu...
son bir kez daha el atılırsa düzelecek.şimdiden teşekkürler.

 

[fedeal]

Veri sayfasını açın veri-listele-aralıga dönüştür. problem ortadan kalkacak.sorun sayfada oluşturdugunuz liste.saygılar.

 

[mchtozdemir]

Boş hücreleri kendinden bir önceki hücre ile doldurmanın bir formülü vardı. Dilimin ucunda çıkartamıyorum.

 

[Ömer BARAN]

Boş hücreleri kendinden bir önceki hücre ile doldurmanın bir formülü vardı. Dilimin ucunda çıkartamıyorum.

Merhaba.

İlgili alanı seçin,
"Bul ve Seç" menüsü -> "Özel Git" -> "Boşluklar" -> formül çubuğuna
=A1 gibi ilk boşluktan önceki hücre adını yazın
-> CTRL+ENTER tuşlarına birlikte basın.

 

[mchtozdemir]

Merhaba.

İlgili alanı seçin,
"Bul ve Seç" menüsü -> "Özel Git" -> "Boşluklar" -> formül çubuğuna
=A1 gibi ilk boşluktan önceki hücre adını yazın
-> CTRL+ENTER tuşlarına birlikte basın.

Bunu birde formülle yapabiliyorduk. KAYDIR işlevini kullanarak ama bir türlü çıkartamıyorum förmülü