elimde her gün düzenli olarak veri girişi yapılacak bir excel tablosu var(Liste sheeti). bu tabloya veri girişi yapıldıkça yan sayfadaki tabloya(Ozet) da bazı değerlerin otomatik olarak girilmesini istiyorum.
dosya linki: yadi.sk
ben internetteki bazı kodlar ile bir şeyler çıkarmaya çalıştım ama yapamadım.
benim yazdığım kod:
Sub aktarma()
Dim alan1, alan2, alan3 As Range
Sheets("Liste").Select
son = WorksheetFunction.CountA(Range("A4:A65000"))
Set alan1 = Application.Range("A2:A" & son)
alan1.Copy Destination:=Sheets("Ozet").Range("A2")
Set alan1 = Nothing
Sheets("Liste").Select
son = WorksheetFunction.CountA(Range("B4:B65000"))
Set alan1 = Application.Range("B4:B" & son)
alan1.Copy Destination:=Sheets("Ozet").Range("B2")
Set alan1 = Nothing
Sheets("Liste").Select
son = WorksheetFunction.CountA(Range("C4:C65000"))
Set alan3 = Application.Range("C4:C" & son)
alan3.Copy Destination:=Sheets("Ozet").Range("C2")
Set alan3 = Nothing
End Sub
bu konuda yardımcı olabilecek birileri, var mıdır?
Merhaba,
Koddan tam olarak ne yapılmak istediğini anlamadım, birazdan çıkacağım için de dosyaya bakamıyorum ancak aklıma gelen ilk şey, bir pivot table sayfası oluşturun, herhangi bir giriş yapıldığında pivot table ı güncelleyin. bu işinize yaramaz mı?
@kisa
cevabınız için teşekkür ederim. pivot tablo ile istediğim şeyi yapmayı denedim fakat yapamadım. sebebi ise bazı hücrelerin başlıklarını merge yapmış olmam.
Rica ederim,
bir çözüm daha, yeni bir sayfa oluşturun, burada örneğin A1= shhet1!A1 olsun. bu şekilde tüm hücreleri linkleyin (hücreleri birleştirmeden) bu sizin ham data sayfanız olsun sonra buraya göre pivot alın.
ya da makro ile yapmak için şunu söyler misiniz, giriş yaptığınız sayfada ki hangi kriterlere göre diğer sayfayı dolduracaksınız anlamadım. baktığımda iki sayfa da birbirnin aynısı gibi göründü neredeyse.
özet tablosunda yaptığınız şey servise çıkış dönüş saatlerini ve masrafları göstermemek sanırım. macroyla uğraşacağınız yere servise çıkış dönüş saatlerini de ilk tablonun sonuna masrafların yanına koyun ilk bakışta gözükmez böylece. boşu boşuna kod/formül çalıştırıp şişirmezsiniz dosyayı
@kisa
hücreleri birbirine bağlamayı da denedim fakat ilk sayfadaki boş değerlere karşılık diğer sayfada o hücreye 0 değerini yazıyor. 0 yazması yerine o hücreyi boş bırakabilirsem o zaman bu seçenek olabilir ama nasıl boş gözükeceğini bilmiyorum. umarım anlatabilmişimdir.
aslında yapmak istediğim şey özet bir tablo yaratmak. ilk tablodaki servise çıkış, çalışma zamanı, servisten dönüş kısımlarında yer alan detayları bilgileri özet tabloda göstermemek. daha sonra bu verileri access'e aktarıp oradan çalışmaya devam edeceğim.
@argent dawn
aslında evet o bahsettiğiniz kısımda yer alan detayları göstermek istemiyorum. o tabloyu daha sonra access ile bağlayacağım için o sayfada o belirttiğim bilgiler dışında başka bir bilgi olmaması gerekiyor. ilk dosyaya verileri girdiğim zaman özet sheet'in ve access veritabanının otomatik olarak güncellenmesini istiyorum.
Merhaba, geç oldu kusura bakmayın
=IF(A10 = "","",A10)
bu formül, A10 da hiç bir şey yoksa, bir şey yazmaz, varsa A10 un içeriğini yazar. bu şekilde yeni bir sayfa oluşutrabilirsiniz
@kisa
cevabınız için teşekkür ederim. bu kod ile istediğim şeyi yapabildim.
Rica ederim, sevindim işinize yaradığına.