Ağaçları Çap Gruplarına Göre Aktar

[Hsn55]

Merhabalar;
Ekli dosyada veri girişi sayfasında F9:F69 Hücre aralığında ağaçların çapı mevcut. G8:V8 hücre aralığında ise ağaçların boyları mevcut. G9:V69 hücre aralığında ise adetleri mevcut. Yapmak istediğim bu aralıktaki çap, adet ve boyları örnekteki gibi OlcüTespit sayfasına aktarma. Aktarma yapılırken sıra numarası otomatik olacak. Ağaç cinsini T4 hücresindeki veriyi, Emval cinsini ise U4 hücresindeki veriyi hepsine yazacak. Ster kısmına ise hepsine 1 yazacak. Ayrıca Veri aktarıldıktan sonra eğer veri girişi sayfasında her iki hücrede ( T4 ve U4 hücresinde) değişiklik yapıp tekrar aktar dediğimde bir önceki aktarılan verinin devamına aktarılacak. Eğer değişiklik yapmadan tekrar aktar dediğimde ise üzerine yazacak. Umarım bu şekilde makro yazılabilir .Şimdiden teşekkür ederim

İndir Olcu Tespit xlsm

Dosyayı indir Olcu Tespit xlsm

dosya.co

 

[muhasebeciyiz]

İndir OlcuT espit xlsm

Dosyayı indir OlcuT espit xlsm

dosya.co

Deneyiniz

 

[Hsn55]

Sayın Muhasebecibey teşekkür ederim.Dosyayı telefon üzerinden kontrol ettiğimde ölçütespit sayfasında 2.satırdan başlıyor gördüğüm kadarıyla.Aktarılan sayfa 2.satırdan başlamalı. Dosyayı eve gidince kontrol eder tekrar dönüş sağlarım

 

[muhasebeciyiz]

Doğru 2.satırdan başlıyor siz örnekte numaralandırmayı birden değilde sıfırdan yaptığınız için oldı birde ilk satır kırmızı ile işaretli boşmu olacak diye düşündüm.Orayı şimdilik başlık olarak kullanınız.Olmazsa bakarız

 

[Hsn55]

Hocam aktarma işi oldu. Fakat butona basınca tekrar aynı verileri alta aktarıyor. Şöyle bir şart vardı. Eğer Veri Girişi sayfasında T4 ve U4 hücresindeki verinin 1 tanesi değişmiş olsa alt satıra aktarma yapacak. Eğer değişiklik olmasa aktarılan verinin üzerine yazacaktı.

 

[Hsn55]

Muhasebeci bey günaydın; bir değişiklik yapmak istedim . Her defasında sırasına göre aktarım olabilir mi?. Birde ölçü tespit sayfasında G sütununa artık her satıra 1 yazılmasın. Ayrıca aktarım 2.satırdan başlayabilir mi?. Ölçü tespit sayfasında. Birde vba şifreli kaldırırsanız sevinirim

 

[muhasebeciyiz]

İndir OlcuT espit xlsm

Dosyayı indir OlcuT espit xlsm

dosya.co

 

[Hsn55]

hocam link olarak dosyayı yükleyebilir misiniz?

 

[muhasebeciyiz]

Sıra numarası kaldığı yerden devam eder.
D sütunu artık boş bırakılır.
T4/U4 değişmeden yeni adet/boy girilirse ilave veri eklenir.
Aktarma öncesi kullanıcıya "Evet/Hayır" sorusu çıkar.
Boy ve adet artırıldığında yeni veriler alını

7 nolu dosyayı yeniledim bakıp dönüş yapınız

 

[Hsn55]

Hocam OlcüTespit Sayfasında A sütunu Sıra No B sütunu Ağaç Cinsi C sütünu Emval D sütunu boş olacak. E sutunu çap, F sutunu boy G sütunu adet olarak aktarılcak

 

[muhasebeciyiz]

7 nolu düzenlenen dosyayı Tekrar denermisiniz

Aynı çap ve boy ile farklı adet girin → eski satırda adet artar.
Yeni çap/boy girin → yeni satır eklenir.

 

[Hsn55]

D sütunu boş olacaktı. Çap E sütununa, Boy F sütununa Adet ise G sütuna yazılacaktı hocam

 

[muhasebeciyiz]

7 nolu düzenlenen dosyayı Tekrar denermisiniz

D sütunu boş bırakılır.
Çap → E sütunu
Boy → F sütunu
Adet → G sütunu
Aynı veri varsa üzerine eklenir, yoksa yeni satır eklenir.
Sıra numarası kaldığı yerden devam eder.
Aktarım öncesi kullanıcıya “Evet/Hayır” sorusu çıkar.

 

[Hsn55]

Hocam çok teşekkür ederim. Ayrı bir buton ile OlcuTespit Sayfasını masa üstünde "Tapulu Kesim Ölçü Tespit Tutanağı" diye bir dosya oluşturabilir miyiz. Birde hocam VBA şifresini paylaşırsanız sevinirim.

 

[muhasebeciyiz]

7 nolu düzenlenen dosyayı Tekrar denermisiniz

 

[Hsn55]

7 nolu düzenlenen dosyayı Tekrar denermisiniz

Çok teşekkür ederim. Kodları asıl dosyama aktaracağım için vba açık olmalı hocam. Mümkünse kodları paylaşabilir misiniz