hücreyi satır satır bölme.

[ali veli]

Arkadaşlar benim istediğim. Sayfa1 de ada parsel, ürün ve iğerlerini satır satır ayırabilirmiyiz.

 

[ali veli]

yardımlarınızı bekliyorum arkadaşlar.Teşekkürler.

 

[halit3]

yardımlarınızı bekliyorum arkadaşlar.Teşekkürler.

dosyana 2 edet sayfa ekledim sayfa4 ve sayfa5 bu doğrultuda yaparsanız veriler istediğiniz gibi gelecektir tabloyu kendinize görede uyarlıya bilirsiniz.

 

[ali veli]

Sağol halit3.
Ama benim istediğim ekte gönderdim.
Mesela ürünler fazla olabilir.Her ada parsel ve ürün kısmına yazılan değerleri ayrı ayrı Sayfa1' de sıralaması şeklinde.
Şahsın beyan ettiği her ürünü ayrı ayrı sıralasın istiyorum.

 

[halit3]

Sağol halit3.
Ama benim istediğim ekte gönderdim.
Mesela ürünler fazla olabilir.Her ada parsel ve ürün kısmına yazılan değerleri ayrı ayrı Sayfa1' de sıralaması şeklinde.
Şahsın beyan ettiği her ürünü ayrı ayrı sıralasın istiyorum.

ben sadece alternatif olsun diye bir yol bulmuştum dosyayı inceledinizmi.?
sayfa4 de her kişiye ait 10 satır olmak üzere veri girişlerini yapınız.
sayfa5 de kaydırıcı komut düğmesi ile ilgili kişilerin bilgilerini getiriyor.

 

[ali veli]

Teşekkür ederim halit3. Dosyayı inceledim, peki diyelim kiraz ürününden birden fazla kayıt var ve aynı üründe olsa ayrı ayrı satıra aktarmasını istiyorum. Mesela kiraz 10 kayıt var , diğer ürünlerdende var her bir ürünü ayrı ayrı nasıl aktarırız, uğraştım ama beceremedim. Yardımlarınız için sağolun.

 

[halit3]

bu durumda sayfa5 deki satırları arttırmak gerekiyor
daha sonra boş satırları gizleme yönemi ile yapılabilir gibi geliyor bana

 

[halit3]

Teşekkür ederim halit3. Dosyayı inceledim, peki diyelim kiraz ürününden birden fazla kayıt var ve aynı üründe olsa ayrı ayrı satıra aktarmasını istiyorum. Mesela kiraz 10 kayıt var , diğer ürünlerdende var her bir ürünü ayrı ayrı nasıl aktarırız, uğraştım ama beceremedim. Yardımlarınız için sağolun.

örnek olsun diye sayfa6 ya 3 bölümlük olarak ben satır ekledim kendin buna bakarak çoğaltabilirsin

A sütunundaki sayılardan değerleri alıyor bu sütunda işin bittiği zaman gizliyebilirsin

birde boş satırları gizle veya göster komut düğmesi ekledim bunlarla işlemini gerçekleştirebilirsiniz.

 

[halit3]

bir sayfa ekledim

sayfa7 de herşey otomatik olarak aktarıyor kontrol ediniz.

 

[ali veli]

Teşekkür ederim halit3 baktım güzel olmuş, detaylı inceleyeyim yine yardımınızı isterim.

 

[halit3]

buda farklı bir yöntem

 

[ali veli]

liste sayfasında benim başka yerden aldığım veriler var onları sayfa4 e "don sıra nosu" na göre aktarabilirmiyiz.
Birde FORM da adı soyadı köyü TC.kimlik no kısmını her satırı ayrı ayrı çizerek değilde hücre birleştirme gibi tek satır olarak yapılabilirmi?
Birde ada numarası "0" ise sıfır olarak yazamazmıyız.
Yardımlarınız için sağolun.

 

[ali veli]

Yardımlarınızı bekliyorum. Teşekkür ederim.

 

[halit3]

liste sayfasında benim başka yerden aldığım veriler var onları sayfa4 e "don sıra nosu" na göre aktarabilirmiyiz.
Birde FORM da adı soyadı köyü TC.kimlik no kısmını her satırı ayrı ayrı çizerek değilde hücre birleştirme gibi tek satır olarak yapılabilirmi?
Birde ada numarası "0" ise sıfır olarak yazamazmıyız.
Yardımlarınız için sağolun.

sorunu anlıyamadım sayfa4 de "don sıra nosu" na göre hangi hücredeki veriler hangi hücrelere aktarılacak

t.c. kimlik no kısmını hücleri birleştirerek yapabilirsin

sıfır değerleri görmek istiyorsanız araçlar/seçenekler/görünüm/sıfır değerleri
tikini işaretleyiniz.

 

[ali veli]

Sayfa 4 'e köy bilgisi ekledim. Formülü ayarlayamadım yardımınızı bekliyorum.
LİSTE sayfasında bağlantıyla başka yerden aldığım isimler var ya onları Sayfa 4 'de sıralayabilirmiyiz. Teşekkür ederim.

 

[halit3]

öncelikle 11 nolu mesajdaki dosyaya bir bak

diğer taraftan "don sıra no" E sütunundaki bilgiler sayfa4 ün hangi sütununa aktarılacak

aynı şekilde liste sayfasındaki A,B,C sütünlarındaki bilgiler sayfa4 ün hangi sütununa aktarılacak bunları belirtmemişsiniz.

siğer taraftan aşağıdaki kod liste sayfasındaki verilerin sıralamasını yapıyor.

Sub Makro1()
Columns("A:E").Copy
Range("A1").Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks :=False, Transpose:=False
Application.CutCopyMode = False


sat1 = Worksheets(ActiveSheet.Name).Cells(Rows.Count, "E").End(3).Row
Worksheets(ActiveSheet.Name).Range("A7:E" & sat1).Sort Key1:=Range("E" & sat1), Order1:=xlAscending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
MsgBox "işlem tamam"
End Sub