• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Başka sayfadaki veriyi çekmek

  • Konbuyu başlatan Konbuyu başlatan k1222
  • Başlangıç tarihi Başlangıç tarihi
K

k1222

Katılım
21 Mayıs 2012
Mesajlar
70
Excel Vers. ve Dili
tr
Arkadaşlar sınav giriş belgesi yazdırmak istiyorum.

İlk sayfaya tasarımı yaptık, adı soyadı tc numarası gibi bilgileri sayfa 2 den çektik. =Sayfa2!E2 gibi.

uyguladığımız formul sonucu bilgiler geliyor. yalnız 2. ci adayın bilgilerini gelmesini istediğimde formulün hepsini değiştirmem mi gerekiyor ?

2 . sayfadan ilk veriyi sildiğimde de hata veriyor formül.

burada seri bir şekilde yazdırma işlemini nasıl yapabilirim ?

yardımcı olan arkadaşlara teşekkürler...
 
=SAYFA2!E2 yerine DÜŞEYARA formülünü kullanın. Sadece TC kimlik numarasını elle ya da veri doğrulama ile girilecek şekilde ayarlayın. Daha sonra küçük bir makro ile tc numarasının sırayla değişmesi ve belgelerin ayrı ayrı yazdırılması sağlanabilir.
 
yardımcı olduğunuz için teşekkürler hemşerim sanırım sende Malatya'lısın.

bu makro ile formülü paylaşabilir misiniz acaba ?
 
Evet Malatyalıyım.

Örneğin aşağıdaki kodlar şu işi yapar:

Sayfa1'in F11 hücresini 2'den başlayarak sayfa2'nin son dolu satırına kadar sırasıyla arttırır. Daha sonra Sayfa1'i yazdırır. Örneğin F11'i 2 yapar ve sayfa1'i yazdırır, sonra 3 yapar yine yazdırır, sonra 4 yapar yine yazdırır, ta ki sayfa 2'nin son satırına kadar böyle devam eder. Tabi bu arada diğer hücreler de F11'e bağlı olarak formüllerle sayfa2'deki diğer bilgileri çekerler.

Kod: 
Sub hizliyaz()
Set s1 = Sheets("sayfa1")
Set s2 = Sheets("sayfa2")
For i = 2 To s2.Range("a65536").End(3).Row
s1.Range("f11") = s2.Cells(i, "a")
s1.PrintOut Copies:=1
Next
End Sub

Sizin dosyanızda da böyle bir uygulama yapılır. Ancak tam işinize yarar çözümü bulabilmek için örnek bir dosya hazırlayıp dosya yükleme sitelerinden birine yükleyip burada paylaşırsanız daha iyi olur. Dosyanızda, belirttiğiniz gibi bir kaç örnek bulunan liste sayfasıyla yazdırılacak sayfa olsun. Formül ve makro işi işin kolay kısmı olur.
 
Sub aktarr()
Application.ScreenUpdating = False
On Error Resume Next

Set s1 = ThisWorkbook.Worksheets("Sayfa1")
Set s2 = ThisWorkbook.Worksheets("Sayfa2")

For i = 3 To s1.Range("e65536").End(xlUp).Row
If UCase(s1.Cells(i, "e")) = UCase(s2.Cells(1, "k")) Then
sonsatir = s2.Range("A65536").End(xlUp).Row + 1
s2.Cells(sonsatir, 1) = sonsatir - 1
s2.Cells(sonsatir, 2) = s1.Cells(i, 2)
s2.Cells(sonsatir, 3) = s1.Cells(i, 3)
s2.Cells(sonsatir, 4) = s1.Cells(i, 4)
s2.Cells(sonsatir, 5) = s1.Cells(i, 5)
s2.Cells(sonsatir, 6) = s1.Cells(i, 6)
s2.Cells(sonsatir, 7) = s1.Cells(i, 7)
s2.Cells(sonsatir, 8) = s1.Cells(i, 8)
s2.Cells(sonsatir, 9) = s1.Cells(i, 9)
End If
Next i
Application.ScreenUpdating = True
MsgBox "İşlem TAMAM.", vbInformation
End Sub
Sub temizlee()
Sheets("Sayfa2").Range("a2:ı65536").ClearContents
End Sub


bu makro benim işime yarıyor ama nasıl kendi tabloma göre güncelleyeceğim onun içinden çıkamadım
 
Dosyanızda sayfa2'deki verilerin sayfa1'de hangi alana geleceğini belirtseydiniz iyi olurdu. Sayfa2'de sütun başlığı olmadığından sayfa1'deki yerleri bulunmuyor doğal olarak.
 
Yusuf hocam ilgili yerleri yazdım.. teşekkürler..

http://s3.dosya.tc/server29/FzIDOH/FORUMSON.xlsx.html


ayrıca resimde ekleyeceğim onun için de bu makroyu düşünüyorum
Private Sub Worksheet_Change(ByVal Target As Range)
Dim res As String
Dim a As Shape
Dim B4 As Range
If Target = "" Or Target.Address <> "$A$1" Then Exit Sub
If Target.Count > 1 Then Exit Sub
Set B4 = Range("B4")
For Each a In Shapes
a.Delete
Next a
B4.ClearContents
res = "C:\Resimler\" & Target & ".jpg"
If Dir(res) = "" Then
B4 = "RESİM YOK"
Else
With ActiveSheet.Pictures.Insert(res)
.Left = B4.Left
.Top = B4.Top
.Height = B4.Height
.Width = B4.Width
End With
End If
End Sub
 
Dosyanızı biraz düzenledim. Listede ve kimlikte TC kimlik numarasını en başa aldım. İsterseniz kimlikte yerini değiştirebilirsiniz ancak listede en başta olması kimlik sayfasındaki formüllerin çalışması için gereklidir.

Resim eklenebilmesi için bilgisayarınızda C sürücüsünde Resimler klasöründe her adayın TC kimlik numarası olarak adlandırılmış jpg uzantılı resminin bulunması gerekir.

Kimlik sayfasındaki makro düğmesine bastığınızda liste sayfasındaki her aday için ayrı ayrı kimlik yazdırılır:

https://drive.google.com/file/d/0B43WMUs21VpfYTZvX3ctbV9TUnc/view?usp=sharing
 
Yusuf hocam çok teşekkürler. Allah senden razı olsun. teknik olarak herşey tamam yalnız yazdırırken kağıt ayarlarını yapamıyorum direk basıyo. kağıda da ortalanmış olmuyo ve biraz da küçültülmüş çıkarıyo. yazdırma SAYFASI AYARLARINA gelemİyOrum.
 
hocam hallettim. Allah razı olsun. İşin rast gelsin inşallah.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst