Yeni kayıt-veri çağırma

[ormann]

EKTEKİ DOSYADA girmiş olduğum bilgilerin suç kaydına kaydet butonuna bastığımda veri girişindeki bilgileni silinerek suç kaydına kaydedilmesini istiyorum yukarıdaki arama butonunda bulunan adı ve soyadı ,dava takip no,esas no su yazılı olanların herhangi birini girdiğimde tekrar veri girişi sayfasına çağırdığım zaman gelmesini istiyorum ve bu mümkünmüdür acaba. yardımlarınızı bekliyorum.

 

[ormann]

birlesecek

Sayın halit arkadaş ekteki dosyada girmiş olduğum bilgilerin suç kaydına kaydet butonuna bastığımda veri girişindeki bilgileni silinerek suç kaydına kaydedilmesini istiyorum yukarıdaki arama butonunda bulunan adı ve soyadı ,dava takip no,esas no su yazılı olanların herhangi birini girdiğimde tekrar veri girişi sayfasına çağırdığım zaman gelmesini istiyorum ve bu mümkünmüdür acaba yardımlarınızı bekliyorum

 

[ormann]

Arkadaşlar lütfen yardım edin .bu programa çok ihtiyacım var.

 

[Ömer]

Merhaba,

Veri sayfasındaki satır ile suç kaydı sayfasındaki sütunlar eşit değil. Dışarda kalan veriler ne olacak.

.

 

[ormann]

MERHABA,
Onlarıda ekleyebilirsiniz

 

[halit3]

Sayın halit arkadaş ekteki dosyada girmiş olduğum bilgilerin suç kaydına kaydet butonuna bastığımda veri girişindeki bilgileni silinerek suç kaydına kaydedilmesini istiyorum yukarıdaki arama butonunda bulunan adı ve soyadı ,dava takip no,esas no su yazılı olanların herhangi birini girdiğimde tekrar veri girişi sayfasına çağırdığım zaman gelmesini istiyorum ve bu mümkünmüdür acaba yardımlarınızı bekliyorum

öncelikle bu konu başlığı farklı siz kendi sorunuzu farklı bir başlıkta sormanız gerekirdi eminim daha çabuk cevap alırdınız.

ekli dosyayı kontrol ediniz.

 

[Ömer]

Önce veri sayfası E2 hücresine ESAS NO değil, MAHKEME ESAS NO yazın. Yani girilen verinin bir üst satırı ile bakılan sayfaaki verinin başlık isimlerini aynı yapınız..

Bu kodları standart bir module kopyalayın.

Option Explicit
 
Sub Kayıt()
Dim son As Long, s1 As Worksheet
Application.ScreenUpdating = False
Set s1 = Sheets("SUÇ KAYDI")
son = s1.[B65536].End(3).Row + 1
Range("D5:D39").Copy
s1.Range("B" & son).PasteSpecial xlPasteValues, xlNone, False, True
Application.CutCopyMode = False
Range("D5:D39").ClearContents
Application.ScreenUpdating = True
End Sub

Bu kodları ise Veri Giriş sayfasının kod bölümüne kopyalayın.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C3:E3]) Is Nothing Then Exit Sub
If Target = "" Then Exit Sub
Dim c As Range, s1 As Worksheet, say As Long
Set s1 = Sheets("SUÇ KAYDI")
say = Application.WorksheetFunction.Match(Target.Offset(-1, 0), s1.[3:3], 0)
Set c = s1.Columns(say).Find(Target.Value, LookIn:=xlValues)
If Not c Is Nothing Then
Range("D5:D39").ClearContents
s1.Range("B" & c.Row & ":AJ" & c.Row).Copy
    Range("D5").PasteSpecial xlPasteValues, xlNone, False, True
Application.CutCopyMode = False
Range("C3").Select
Else
    MsgBox Target.Value & " Bilgisini Bulamadım..."
End If
End Sub

.

 

[ormann]

Hocam çok makbule geçti ellerinize sağlık .allah sizden razı olsun

 

[halit3]

mesajların içeriği aynı olduğu için tarafımca birleştirdim.

 

[ormann]

Sayın halit hocam yaptıklarınız için öncelikle çok teşşekür ederim.dava takip noya ve esas göre arattığımda veriler ana sayfaya gelmiyo neden olbilir acaba

 

[halit3]

D3 hücresi ve E3 hücresine aranan noları yazacaksın

 

[ormann]

Hocam ada girmede bir sorun yok fakat d3 ve e3 hücrtesine girdiğim zaman bulmuyo

 

[halit3]

düğmeleri tıklayınca bu dosyada buluyor?

 

[ormann]

Hocam ben yanlış anlattım galiba siz dosyada adı soyadı-esas no -dava takip no bunların üçünü girdiğimizde buluyo ama ben sadece herhangi birini girdiğimde buldurmak istiyorum.saygılar

 

[ormann]

Sadece isim girdiğimiz zaman buluyo;ama sadece esas;sadece dava takip noyu girdiğimde ise bulmuyo

 

[halit3]

Hocam ben yanlış anlattım galiba siz dosyada adı soyadı-esas no -dava takip no bunların üçünü girdiğimizde buluyo ama ben sadece herhangi birini girdiğimde buldurmak istiyorum.saygılar

2. düğmeye davabul
3. düğmeye esasanobul

bu makroları bağlamamışım

şimdi çalışıyor

 

[ormann]

Hocam size nekadar teşekkür etsem azdır.eliniz kolunuz dert görmesin.YALNIZ HOCAM DAVA TAKİP NOYA GÖRE BUL BUTONUN DA BİR SORUN VAR GALİBA DİĞERLERİ GAYET NORMAL.BİRDE HOCAM SUÇ KAYDINA AKTARDIĞIMIZI GÖRÜP TEKRAR VERİ GİRİŞİ SAYFASINA DÖNEBİLİRMİ OTAMATİK OLARAK

 

[halit3]

dava bul makrosundaki

MsgBox bulunan

bunu sil

iyi çalışmalar

 

[ormann]

Hocam dediğinizi yaptım oldu son olarak suç kayıtı aktara tıkadığımda aktarılan yeri görüp tekrar veri girişi sayfasına dönebilirmi

 

[Ömer]

Sayın ormann,

Öncelikle aynı konuyla ilgili birden fazla konu başlığı yada mesaj yazmamanızı rica ederim.

#7 nolu mesaja ait dosya ektedir..

Alternatif olsun..

.