Satır ekleyerek kayıt yapmada yardım

[fatih34]

Sayın Hocalarım ekli örnek dosyamda
İnşallah başlığı doğru ata bilmişimdir.

1.Sorum: Örnek olarak 2013/07 arama yaptığım zaman "aradığınız veri bulunamadı" diye hata veriyor. Özellikle 2013/07 den sonraki verileri aradığımda hata veriyor.

2.Sorum: Örnek olarak 2013/05 esas numarası ile önceden kayıt yaptığım evraka örnek dosyamda kırmızı renkte belirttiğim şekilde satır ekleyerek nasıl kayıt yapabilirim.

 

[fatih34]

Her halde tam olarak anlatamadım mı acaba?

 

[suleyman242]

1.Sorum: Örnek olarak 2013/07 arama yaptığım zaman "aradığınız veri bulunamadı" diye hata veriyor. Özellikle 2013/07 den sonraki verileri aradığımda hata veriyor.

 For Each bak In Range("T2:T" & WorksheetFunction.CountA(Range("[COLOR="Red"][B]T[/B][/COLOR]2:[COLOR="Red"][B]T[/B][/COLOR]65000")))

Çalışma sayfasında 15 satırlık (ilk satır adlandırma onu düşersen 14) veri satırın bulunmakta ancak yukarı verdiğim senin kodundaki döngüde T sutununda 9 satırlık arama yapmakta ; yani senin birleştirdiğin 3 hücreyi 1 hücre sayıyor ,o zaman biz dolu satır sayısını başka bir sutundan bulmamız gerekir mesela A sutununda sıra sayısı bulunmakta ve birleştirilmiş hücre yok ; bizde bu sutuna göre döngü deneyelim o zaman aradığımız kayıt bulunacaktır

 For Each bak In Range("T2:T" & WorksheetFunction.CountA(Range("[COLOR="Red"][B]A[/B][/COLOR]2:[COLOR="Red"][B]A[/B][/COLOR]65000")))

2.ci sorunun yanıtıda;

bak.select

kodunun altına

msgbox bak.row

yazarak kaçıncı satırda olduğunun bilgisini verir
buna göre kodumuzda oraya satır ilavesi yapmak

Rows(bak & ":" & bak).Select
    Selection.Insert Shift:=xlDown

ilave edilen satır şu anda aktif olup kaydını buna göre tamamla
son olarakta
bir döngü ile a sutununa sıra numaralarını tekrar ver
kolay gelsin

 

[suleyman242]

Her halde tam olarak anlatamadım mı acaba?

bir önceki mesajıma ilave olarak

For Each bak In Range("T2:T" & [T65536].End(3).Row)

kodubu şekilde de kullanma imkanın var..

 

[fatih34]

Hocam ilginize teşekkür ederim. Çalışmama uyguladım ancak
Rows(bak & ":" & bak).Select

hata verdi.

 

[suleyman242]

Hocam ilginize teşekkür ederim. Çalışmama uyguladım ancak
Rows(bak & ":" & bak).Select

hata verdi.

Hata mı verdi? yoksa hatalı işlem mi yaptı
ben başka bir dosyada denediğim zaman arada birleştirilmiş hücre olunca birleştirilmiş hücre sayısınca seçim yapıyor

 

[fatih34]

Hocam örnek olarak 2013/02 yazıp bul butonuna bastığımda kaçıncı satırda olduğunu bulup gösteriyor tama dediğimde
Rows(bak & ":" & bak).Select
bu kodda hata gösteriyor. Dosyamı ekte gönderiyorum.

 

[suleyman242]

bulma işlemi esnasında satır eklenemez ama yeni bir textboxa kayıt sıra numarasını atayıp bir command buton ile satır ekliyebilirsin bu satır ekleme işlemi birleştirilmiş hücrelerde birleştirilmiş hücre sayısı adedince satır ekler

 

[fatih34]

Hocam şuan 1500 satırlı bir verim var. Bu verideki bilgilere bazen satır eklemem lazım olunca klasik yolla satırı ekleyip bilgileri giriyorum.
Bunu bu formla nasıl yapa bilirim.
Acemi olduğumdan tam olarak anlatamıyorum. Bundan dolayı kusura bakmayın

 

[suleyman242]

Bir önceki mesajımın ekindeki dosyada sorunun cevabını verdim bir adet textbox ekledim bu textboxa aradığın kaydın kayıt numarası geliyor birde command buton "satır ekle" butonu ekledim bu butonada kod ekliyerek, bulduğun kaydın bir altına boş bir satır eklemesini tanımladım , bundan sonrası senin diğer kodlarınla o satırlara bilgi ilavesi yapabilirsin.

 

[fatih34]

Hocam teşekkür ederim ilginizden ve emeğinizden dolayı.Ancak birleştirilmiş hücre kadar satır eklememesi için ne yapmak lzaım. Sonuçta sadece bir tane satır eklemek istiyorum

 

[halit3]

Bul koduna kırmızı yeri ekleyip denermisiniz.
o bölüm ilgili satıra ekleme yapıyor.

Private Sub cmdBUL_Click()
Sheets("Sayfa1").Select
    Dim bak As Range
    For Each bak In Range("T2:T" & WorksheetFunction.CountA(Range("T2:T65000")))
        If bak.Text = TextBox71.Text Then
            bak.Select
TextBox1.Text = ActiveCell.Offset(0, -18).Text
TextBox2.Text = ActiveCell.Offset(0, -16).Text
TextBox71.Text = ActiveCell
TextBox3.Text = ActiveCell.Offset(0, -17).Text
TextBox4.Text = ActiveCell.Offset(0, -15).Text
TextBox5.Text = ActiveCell.Offset(0, 5).Text
TextBox6.Text = ActiveCell.Offset(0, -13).Text
TextBox7.Text = ActiveCell.Offset(0, 7).Text
TextBox8.Text = ActiveCell.Offset(0, 8).Text
TextBox73.Text = ActiveCell.Offset(0, -19).Text
 
[COLOR=red]On Error Resume Next[/COLOR]
[COLOR=red]adres1 = ActiveWindow.RangeSelection.Address[/COLOR]
[COLOR=red]a = InStr(Trim(adres1), ":")[/COLOR]
[COLOR=red]If a = 0 Then[/COLOR]
[COLOR=red]sat = ActiveWindow.Selection.Row[/COLOR]
[COLOR=red]Else[/COLOR]
[COLOR=red]sat = Range(Mid(adres1, a + 1, 15)).Row[/COLOR]
[COLOR=red]End If[/COLOR]
[COLOR=red]b = MsgBox("satır eklemek istiyormusunuz. ?", vbYesNo + vbInformation, " uyarı")[/COLOR]
[COLOR=red]If b = vbYes Then[/COLOR]
[COLOR=red]Rows(sat & ":" & sat).Insert Shift:=xlDown[/COLOR]
[COLOR=red]End If[/COLOR]
 
Exit Sub
        End If
    Next bak
    MsgBox "Aradığınız Kayıt Bulunamadı"
 
End Sub