makroyla ilgili sayfaya veri kaydetme

[veycell29]

Arkadaşlar ilçe tarım müdürlüğünde çalışmaktayım müdürlüğümüze bir excel programı yapmaya çalışıyorum ama bir türlü yapamadım 3-4 gündür makro konusunda araştırma yapıyorum ama bir türlü olmuyor benim yapmak istediğim programda bir giriş ekranı olması lazım o ekranda giriş yaptığım zaman köyün excel sayfasına direk atmalı. Belge numarası tc kimlik no adı soyadı baba adı doğum tarihi sadece yıl olacak şekilde köyü seçtiğim zaman köy sayfasına otomatik olarak atması lazım bir el atıp yardım ederseniz sevinirim. ben basit şekilde ne istediğimi gösterdim ama sayfalar 75 tane olacak

 

[YUSUF44]

Sevgili meslektaşım, öncelikle forumun kuralları gereği sorunuzun başlığını değiştirmeniz gerekiyor, "makroyla ilgili sayfaya veri kaydetme" olabilir. Daha sonra ilgilenen arkadaşlara yol göstermesi açısından örnek bir dosya oluşturup, elinizdekileri ve olması gereken halini gösterip anlatırsanız yardımcı olan çıkacaktır.

Kolay gelsin.

 

[YUSUF44]

Meslektaşım, çok uğraştım ve sonunda yapabildim. Aslında veri girişindeki bilgilerle köy sayfalarındaki bilgiler birebir aynı olsaydı çok daha kolay olurdu ama veri girişi sayfasında sadece kimlik bilgilerini, köy sayfasında ise ada parsel ve ürün bilgilerini girmek istediğiniz için zorlandım.

Ekteki dosyayı inceleyin. dosya açıldığında makroları etkinleştirirseniz Veri girişi sayfasına her girş yaptığınızda aktar tuşuna basarak verileri ilgili sayfaya aktarabilirsiniz. Eğer o köy daha önce kaydedildiyse o köyün sayfasındaki ilk boş satıra, daha önce kaydedilmemişse o köy adında sayfa oluşturup ilk boş satıra aktarma yapar.

düzenli çalışması için sayfaların biçimini fazla değiştirmeyin. Örneğin sağına soluna üstüne vs satır sütun eklemeyin ve Boş sayfasını kesinlikle silmeyin.

birkaç da öneride bulunmak istiyorum: Excel'in çalışma mantığına uygun olması için mümkün olduğunda dosyalarınızda boş satır ve sütun bırakmayın. siz üstte ve solda boş satırlar bırakmıştınız ben onları iptal ettim. ayrıca gereksiz hücre birleştirmelerden de kaçının. Standart tablo görünümüne sahip verileriniz için sütun ve satır genişliklerini değiştirerek verilerinizi sığdıra bilirsiniz.

 

[istanbulcahan]

Meslektaşım, çok uğraştım ve sonunda yapabildim. Aslında veri girişindeki bilgilerle köy sayfalarındaki bilgiler birebir aynı olsaydı çok daha kolay olurdu ama veri girişi sayfasında sadece kimlik bilgilerini, köy sayfasında ise ada parsel ve ürün bilgilerini girmek istediğiniz için zorlandım.

Ekteki dosyayı inceleyin. dosya açıldığında makroları etkinleştirirseniz Veri girişi sayfasına her girş yaptığınızda aktar tuşuna basarak verileri ilgili sayfaya aktarabilirsiniz. Eğer o köy daha önce kaydedildiyse o köyün sayfasındaki ilk boş satıra, daha önce kaydedilmemişse o köy adında sayfa oluşturup ilk boş satıra aktarma yapar.

düzenli çalışması için sayfaların biçimini fazla değiştirmeyin. Örneğin sağına soluna üstüne vs satır sütun eklemeyin ve Boş sayfasını kesinlikle silmeyin.

birkaç da öneride bulunmak istiyorum: Excel'in çalışma mantığına uygun olması için mümkün olduğunda dosyalarınızda boş satır ve sütun bırakmayın. siz üstte ve solda boş satırlar bırakmıştınız ben onları iptal ettim. ayrıca gereksiz hücre birleştirmelerden de kaçının. Standart tablo görünümüne sahip verileriniz için sütun ve satır genişliklerini değiştirerek verilerinizi sığdıra bilirsiniz.

Üstadım.Güzel bir çalışma, emeğine sağlık.
Ben bu çalışmanın ara yüzünde bir kaç değişiklik yaptım. Veri başlıklarını değiştirdim. Aktarma yapıyor. Yalnız iki başlıkta olan hücrelere kayıt yapamıyor.Düzeltebilirmisiniz.

 

[YUSUF44]

Sayın cahan, veysel beyin dosyasında sağa doğru tüm hücreler değil de sadece 3 hücre seçildiği için biraz uzun yoldan bir çözüm bulmuştum. Sizin dosyanıza daha uyumlu olan bir yöntem kullanmıştım ama baktım ki tüm hücreler kopyalanmayacak yukardaki uzun yöntemi geliştirdim. Muhtemelen daha basit bir yöntemi vardır ama ben sağdan soldan toplama ve yorumla ancak bu kadarını yapabildim.

Sizin sorunuza gelince daha önce arkadaşın dosyası için kullandığım kodları aşağıda veriyorum. Aktar makrosunu aşağıdakiyle değiştirirsiniz istediğiniz gerçekleşir. Ancak şunu unutmayın eğer satırlara veri girerken herhangi bir hücreyi boş bırakırsanız o hücreden sonrakileri kopyalamaz ve aktarmaz:

Sub aktar()
Sheets("veri girişi").Select
    sayfaadı = Sheets("veri girişi").Range("d1").End(4).Value
    Sheets("veri girişi").Range("b1").End(4).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
Sheets(sayfaadı).Select
    Set c = [b:B].Find("")
    If Not c Is Nothing Then c.Select
    ActiveSheet.Paste
    Set f = [b:B].Find("")
    If Not f Is Nothing Then f.Select
Sheets("veri girişi").Select
Application.CutCopyMode = False
Set b = [b:B].Find("")
    If Not b Is Nothing Then b.Select
End Sub

 

[istanbulcahan]

Üstadım çok güzel oldu emeğine sağlık...

 

[veycell29]

üstadım sen harikasın kusura bakma 1 haftadır nete giremiyordum yeni gördüm. ben çok uğraştım ama bir türlü beceremedim .. Biraz çalışarak öğrenmem lazım ama köylerden vakit bulamıyorum akşamda yorgunluktan uğraşmıyorum bilirsin bizim işleri..

 

[YUSUF44]

Bu arada bu dosyayı ne için kullanacaksınız acaba?

 

[veycell29]

yem bitkileri başvurularında kullanacağım kişilerin başvurduğu parselleri köy bazında kontrol edip ona göre işlem yapacağız.