kayıt

[ahmett46]

Slm arkadaşlar
Bir kayıt işlemi var fonksiyonlarla bi şey yapamadım. ancak makro ile gerçekleşebilir. Örnek ve açıklama ektedir. İlgilenen arkadaşlara teşekkürler.

 

[uzmanamele]

merhaba
topla.çarpım fonksiyonunu kullanabilirsiniz, örnekleri araştırın.

 

[ahmett46]

Hocam sayfa 1 deki bilgiler değişkendir. kalıcı kayıt formülle nasıl yapılır?

 

[Orion1]

Formülle yapıldı.
H13 veya H14 hücrelerine veri girirek sonucu gözlemleyiniz.

 

[ahmett46]

Hocam sorumu yanlış anladınız galiba sayfa 1 deki tabloya gelecek bilgiler sayfa 2 de istenilen isim ve aya kaydedilecek yani sayfa birdeki H13 hücresine isim, H14 hücresine ay, I14, J14,K14;L14 hücrelerine veri girdiğimizde sayfa 2 deki ilgili bölüme kayıt yapacak. Teşekkürler

 

[Orion1]

Hocam sorumu yanlış anladınız galiba sayfa 1 deki tabloya gelecek bilgiler sayfa 2 de istenilen isim ve aya kaydedilecek yani sayfa birdeki H13 hücresine isim, H14 hücresine ay, I14, J14,K14;L14 hücrelerine veri girdiğimizde sayfa 2 deki ilgili bölüme kayıt yapacak. Teşekkürler

Boşuna o kadar uğraştık.
Bunu baştan yazsaydınız ya.:mrgreen:

 

[ahmett46]

Olurmu hocam uğraş hiç bir zaman boşa gitmez. onu da kullanacağımdan emin olabilirsiniz. ama ilk mesajda açıklamıştım. sayfa 2 ye kaydedilmesi gerektiğini. Teşekkürler.

 

[Orion1]

Ekli dosyayı inceleyiniz.

 

[ahmett46]

Teşekkürler üstad

 

[Orion1]

Teşekkürler üstad

Rica ederim.

 

[ahmett46]

Slm Hocam
Öncelikle yardımlarınız için teşekkür ediyorum. rn22 deki aktarma işlemine yeni bir aktarma daha yapmak istiyorum. Ayların altında yeni satırlar ekledim. Alttaki butonla da o satırlara aktarma yaptırmak istiyorum. rn23 ekteki dosyayı incelerseniz sevinirim.Teşekkürler.

 

[Orion1]

Dosyanız ekte.

 

[ahmett46]

Hocam ikinci aktarma işlemini yani harfleri isim ve ay seçtikten sonra mesela ahmet ve ocak ayını seçtiğimizde birinci butonla ayın tam karşısına (rakamlar&#305
bir alt satıra da ikinci butonla seçtiğimiz harfleri aktarmak istiyordum. Teşekkürler

 

[ahmett46]

Hocam hallettim teşekkürler.
Sub aktar2()
Sheets("Sayfa1").Select
Dim ay As Range, isim As Range, i As Byte
If Range("H24").Value = "" Or Range("H25").Value = "" Then Exit Sub
Set ay = Sheets("Sayfa2").Range("A2:A65536").Find(Range("h25").Value, , xlValues, xlWhole)
If Not ay Is Nothing Then
Set isim = Sheets("Sayfa2").Range("A1:IV1").Find(Range("H24").Value, , xlValues, xlWhole)
If Not isim Is Nothing Then
With Sheets("Sayfa2")
For i = 9 To 13
.Cells(ay.Row, isim.Column).Offset(1, i - 9).Value = Cells(25, i).Value
Next
End With
End If
End If
MsgBox "Aktarma Yapıldı..!!", vbOKOnly + vbInformation, "EVREN"
End Sub