Değerli arkadaşlar bir muhasebe öğretmeni bana excelle ilgili şu soruyu sordu içinden çıkamadım. SORU Excelde birinci çalışma sayfasında aynı hücreye hergün farklı değerler girilecek. girilen bu değerler ikinci çalışma sayfasında alt alta sıralanacak bununla ilgili örnek görüntüyü de gönderiyorum. BİRİNCİ ÇALIŞMA SAYFASINDA AYNI HÜCREYE VERİ GİRİŞİ YAPILIRKEN BU GİRİŞLER İKİNCİ ÇALIŞMA SAYFASINDA ALT ALTA YAZILACAK
Excel deki bu soruyu beraber çözelim..
- Konbuyu başlatan kulbey
- Başlangıç tarihi
- Mesajlar
- 751
Daha önceden yapmış olduğum kütüphane prg. daki mantık bu. Örnek dosyayı incelersen orada vardır kodu.
İlgili Kodlar
İlgili Kodlar
Kod:
----------------------------------------------------------------
Sub Kaydet()
ActiveSheet.Unprotect
Application.ScreenUpdating = False
If Cells(9, 4) <> "" And Cells(9, 18) <> "" Then
NextRow = [d2151].End(3).Row + 1 // Esas işi yapan satır burası
Cells(NextRow, 4) = Cells(9, 4)
Cells(NextRow, 6) = Cells(9, 6)
Cells(NextRow, 8) = Cells(9, 8)
Cells(NextRow, 11) = Cells(9, 11)
Cells(NextRow, 13) = Cells(9, 13)
Cells(NextRow, 15) = Cells(9, 15)
Cells(NextRow, 18) = Cells(9, 18)
Cells(NextRow, 20) = Cells(9, 20)
Call Temizle
Else: MsgBox "Öğrenci bilgilerini girmeden kaydedemezsiniz..."
End If
Call Kilitle
Range("D9").Select
End Sub
----------------------------------------------------------------
Sub Temizle() ' Ödünç sayfasındaki Giriş hücrelerini Temizler
Range("D9,F9,H9,K9,M9,O9").Select
Range("O9").Activate
Selection.ClearContents
Range("D9").Select
End Sub
------------------------------------------------------------------
Sub Kilitle()
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
- Mesajlar
- 1,209
joombal ve mefete hocalarım dosyalarınızı yükledim şimdi inceleyeceğim teşekkürler
- Mesajlar
- 1,425
Konuya ve Çözümlere Teşekkürler.