Tablodan Düşeyara formülü ile veri alma

[mehmetmet]

Merhabalar.
Tablo içinde düşeyara formülünü sağa doğru kaydırdığımda formül hata veriyor. Normal bir hücreden aldığımızda yapılan sabitleme tarzı durum burada da geçerli olur mu? “verg. No” sütununu manuel olarak düzelttim fakat örnek teşkil etmesi için “ adres” sütununu olduğu gibi bıraktım.
Bir diğer sorumda tablonun en solunda yer alan numaraların veri girişi yapıldıkça kendiliğinden artması mümkün müdür?

Son sorum ise bu veri kaynağını başka bir dosyaya alamadım. Başka bir dosyaya alıp kapalı haldeykende kullanmak istiyorum. Bu durum mümkün müdür?

 

[kemal turan]

Dosyanız ektedir.
Kopyalamayı yukarıdan aşağıya sürüklerseniz sıkıntı çıkmaz.
Dosya kapalı halde iken veri almak istiyorsanız "pıvot table" yi öneririm.

 

[mehmetmet]

Teşekkürler kemal turan bey;
Benim istediğim aslında tablo bittiğinde bir alt satıra geçince otomatik olarak üstten formülü kendisi alsın. O zaman zaten sıralama kendiliğinden olur diye düşündüm ama bunu yapamadım.
Bir diğer hususta formül içinde sabitleme (&A&1) gibi bir durum burda da geçerli olur mu onu öğrenmek istedim.

ilginiz için teşekkürler...

 

[kemal turan]

merhaba,
soldan sağa düşey arayı kopyaladığınızda zaten krıter hücreniz için sabitleme yapmanız gerekiyor.
Fakat veriyi aladığınız sutun numarasını manuel değiştirmeniz gerekiyor.
Tablo bittiğinde bir alt satıra formülü otomatik atması işi için kodlama gerekiyor.
Ben yaparım dersem 1 ay uğraşmam lazım
Bu iş ustalar için 2 dk..
Kolay gelsin

 

[kemal turan]

merhaba,
1 ay sürmedi
dosyanız ek tedir.
İnşallah işiniz görür.
Selametle kalınız

 

[kemal turan]

Merhaba,
Aşağıdaki kodu çalışma sayfanızın kod bölümüne kopyalayıp yapıştırın.
sayfadan çıkarken otomatik yedeğinizide alsın.
Kolay gelsin.

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Set ds = CreateObject("Scripting.FileSystemObject")
ThisWorkbook.Save
If ds.FolderExists("D:\YEDEKLER") = False Then
ds.CreateFolder "D:\YEDEKLER"
End If
If ThisWorkbook.Path = "D:\YEDEKLER" Then Exit Sub
If MsgBox("Dosyanın yedeğini almak istiyor musunuz?", vbInformation + vbYesNo, "DURUM") = vbYes Then
yol = "D:\YEDEKLER\" & Replace(Now, ":", "_") & "-" & ThisWorkbook.Name
ds.CopyFile ThisWorkbook.FullName, yol
End If

End Sub

 

[mehmetmet]

elinize sağlık kemal turan bey;

kendi dosyama bir kaç farklı işlem dahil etmem gerekiyor. umarım halledebilirim.

iyi çalışmalar sizlerede...