Soru Cari Hesap Takip

[Çetin Çelik]

Herkese merhaba.
Bu konuyu açmak istemezdim ama aradığım şeyi tam olarak bulamadım. O nedenle aradığım şeyi sorma ihtiyacı hissettim.

Yardımınız için şimdiden teşekkürler. (Biliyorumki zor bişey istiyorum.) Sorum şu;

Bir çalışma kitabım var.
1. Sayfa A2 hücresinde işlem yapmak istediğim sayfanın adı yazıyor. Sonra 4. satırdan itibaren işlem yapıyorum (3. Satır tablo başlıkları)
Örneğin;
A4 : 1
B4 : 05.01.2021
C4 : Gelen Havale
D4 : 1.000,00 TL
E4 : Doğal olarak boş kalıyor bu örneğe göre, çünkü para giriş yaptı kasaya.

4. satırdan başladım ve 3 satır işlem yaptığımı düşünürsek 4. - 5. ve 6. satırlarım artık dolu.

Bir adet kaydet butonum var. Bu butona basınca A2 hücresinde adı geçen sayfanın, sıradaki boş satırından başlayıp bu 3 satır veriyi kopyalamasını istiyorum. Ama A sütunu hariç. A sütunu "Sıra No" sütunu, ben 1 yazacağım ama esas sayfada belki 100'üncü sıradayız. Diğer konu, bu 3 satır veri her zaman 3 satır olmayabilir genelde tek satır olur ama arada bir 4 satır veya 5 satır veya daha çok olabilir.

Buradaki en önemli konu, formülümüz satırı değil hücreyi kopyala yapıştır yapması gerek. Çünkü yapıştırdığı sayfada F4 hücresi ve sonraki hücreler formüllü. Yani aslında olaya özetle bakarsak B4, C4, D4, E4, hücrelerini A2 de adı geçen sayfanın sıradaki boş satırının B?, C?, D?, E? hücrelerine kopyalamak istiyorum.

Ve son olarak kopyalama işlemi bitince bu 4 satır ve daha sonrasında bulunan satırlardaki girmiş olduğum veriler artık yerine ulaştığı için ihtiyacım kalmadı.
Temizlenirse sevinirim.

 

[ÖmerFaruk]

Butona aşağıdaki kodları atayarak deneyiniz.
Gerekli açıklama kod içinde verilmiştir.

Sub CariHesapTakip()
Dim Sh As Worksheet
Dim i As Integer
Dim Son As Integer
Dim SonSatır As Integer

For i = 1 To Worksheets.Count
    If Worksheets(i).Name = Range("A2") Then
        Set Sh = Worksheets(i)
        GoTo DEVAM
    End If
Next i
    MsgBox "Sayfa ismi hatalı"
    Range("A2").Activate
    Exit Sub
DEVAM:
Son = Range("A" & Rows.Count).End(xlUp).Row
If Son < 4 Then
    MsgBox "Veri yok"
    Exit Sub
End If
SonSatır = Sh.Range("B" & Rows.Count).End(xlUp).Row
For i = 4 To Son
    SonSatır = SonSatır + 1
    Sh.Range("A" & SonSatır) = SonSatır + i - 1
    'Kopyalanacak sayfadaki sıra numarasını buradaki 1 değerini değiştirerek
    'kendinize göre düzenleyebilirsiniz
    Sh.Range("B" & SonSatır) = Range("B" & i)
    Sh.Range("C" & SonSatır) = Range("C" & i)
    Sh.Range("D" & SonSatır) = Range("D" & i)
    Sh.Range("E" & SonSatır) = Range("E" & i)
Next i
Range("A4:E" & Son).ClearContents
End Sub

 

[Çetin Çelik]

Cuk diye oturDU.

Allah razı olsun. Çok Çok teşekkür ediyorum. NextLevel.

Formun uzmanı sizlere birde şunu sormak istiyorum. İşim çözüldüğüne göre bu konuyu silmelimiyim. yoksa durmasında sakınca varmı.

 

[ÖmerFaruk]

Bir sakınca olacağını düşünmüyorum.

 

[Çetin Çelik]

Teşekkür ediyorum.

 

[Çetin Çelik]

Bir sakınca olacağını düşünmüyorum.

Birde şunu sorsam fazla olurmuyum bilmiyorum ama sormak istiyorum.

A1 hücresi veri doğrulama ile H1 ile H200 arasındaki metinleri içeriyor. A1 hücresinde her seçim değişiminde A1 hücresindeki metni H1 ile H200 içerisinde bulacak ve o bulduğu hücrenin 1 sağındaki hücreyi boş veya dolu seçecek. seçtiği hücreyi kopyalayıp J1 hücresine yapıştıracak

 

[ÖmerFaruk]

J1 hücresine aşağıdaki formülü yazın.
=İNDİS(H1:I17;KAÇINCI(A1;H1:H17;0);2)

 

[Çetin Çelik]

Tekrar çok teşekkürler ederim.

 

[Çetin Çelik]

Merhabalar.
Yine bir soru ile geldim.
1. sayfada A2 hücresinde yazan isim dosyamda bulunan herhangi bir sayfanın ismi.
bu isim işlem yaptığım cariye göre değişiyor.
istediğim şey; "Cari Hesaba Git" butonuna bastığımda A2 hücresinde yazan isim hangi sayfanın ismi ise o sayfaya gitsin.

 

[Çetin Çelik]

Merhabalar.
Yine bir soru ile geldim.
1. sayfada A2 hücresinde yazan isim dosyamda bulunan herhangi bir sayfanın ismi.
bu isim işlem yaptığım cariye göre değişiyor.
istediğim şey; "Cari Hesaba Git" butonuna bastığımda A2 hücresinde yazan isim hangi sayfanın ismi ise o sayfaya gitsin.


Cavabı Buldum. Belki Başkasının işine yarar. Cevap Şöyle;

Sub Cari_Bul()
Dim syf As String
On Error GoTo Son
syf = Range("A2").Text
If syf <> "" Then Sheets(syf).Select
Exit Sub
Son:
MsgBox "Sayfayı Bulunamadı...!"
End Sub

 

[Tevfik_Kursun]

Merhaba,
Alternatif olsun, CommandButton'a

Sheets([A2].Text).Select

ekleyin.
İyi çalışmalar