Çözüldü Bir pencere yardımıyla değişken olan aralığa veri çağırma

Akif59 · 10 Ocak 2021

Merhaba
Dosyadaki 10 11 13 14 16 17 satırlara E:W sütun aralığına dosyanın alt bölümündeki verileri kopyalayarak Almak zorunda kalıyorum

dosyanın alt bölümünde bulunan kopyalayarak alınan verilerin başında o gurubu ifade eden Plas Bayan 1 Erkek 1 Bayan 2 Gibi başlıklar var
veri doğrulamada olduğu gibi bir pencere yardımıyla gurup başlığını seçerek ilgili satır ve aralığa seçilen gruptaki verileri getirmek istiyorum.
yardım ve destek rica edemiyorum.

Ömer BARAN · 10 Ocak 2021

Akif Bey istediğiniz VERİ DOĞRULAMA >> LİSTE özelliğini uygun bir hücreye (C9-W9 yerine, E9:W9 aralığını birleştirip VERİ DOĞRULAMA işlemini C9-D9 birleştirilmiş alanında yapabilirsiniz gibi görüyorum) uygulayın. Listedeki seçenek sayısı sadece dosyadakiyeler midir bilemiyorum.
Gördüğüm kadarıyla alttaki lesteler için "aralarda birer satırlık boşluk olan 2'şer satırlık 3 grup toplam 6 satır ve ardından 2 satır boşluk ve bir sonraki veri kaynağı" gibi bir düzen var, bu düzen sabit midir?

Gereksiz yazışma yapılmaması bakımından bu hususlarada bir şeyler yazın ve VERİ DOĞRULUMA uygulamasını uygun alan neresiyse kendiniz uygulayıp dosyayı yenileyin bence.

Ayrıca işlem için WORKSHEET_CHANGE kodu kullanmak uygun gibi görünüyor ancak gerçek belgenizde bu tür kodlama var mıdır bunun da bilinmesi/varsa görülmesi gerekir.
.

Akif59 · 10 Ocak 2021

Merhaba Sayın BARAN
Bende bu işlemi bu forumun sizlerin desteğinle WORKSHEET_CHANGE koduyla yapmak istiyorum dosyada var olanlar haricinde bir kod yok

dosyamın alt bölümde bulunan guruplar halinde bulunan veriler ilerleyen süreçte oldukça çoğalacak o yüzden her gurubun başına dikey metinle bir isim koydum kod yardımıyla tabloda belirtilen satırlara alınacak gurubun başlığını seçip içeriğini almak istiyorum

her bir gurubu anlaşılır olması için farklı renklere boyadım evet haklısınız bazı guruplar 6 satırdan bazı guruplar 4 bazı guruplarda 2 satırdan oluşuyor ileride yeni oluşturulacak guruplarda hep böyle olacak

6 satırdan oluşan bir veri gurubunu iki satırda bir boşluk bırakmamın sebebi tabloda gurubun çekileceği satır aralığında 2 satırda bir formüllerin olmasıdır.

Ömer BARAN · 10 Ocak 2021

Öncelikle veri doğrulama liste kaynağı olarak, uygun bir alana liste yazıp, veri doğrulama listesini oradan alın (hatta bu alan için AD TANIMLAMASI olması da işlemi/alınacak veri satırlarının balangıç ve bitiş numaralarını bulmayı kolaylaştırır) .

Veri gruplarının keni aralarındaki birer satırlık boşluk ve veri grupları arasındaki ikişer satırlık boşluk isabetli olmuş.
Pratiklik/düzen bakımından veri grupları arasındaki 2'şer satırlık boşluk, 8'er satırlık (aralardaki boşluklar dahil) veri alanı düzeni iyi.

Ancak son mesajınızdaki "bazı guruplar 6 satırdan bazı guruplar 4 bazı guruplarda 2 satırdan oluşuyor ileride yeni oluşturulacak guruplarda hep böyle olacak"
kısmı sorun olabilir. Veri grupları gerçekte 6 satırlık olmasa bile, alt tarafta herbiri için 6 satırlık alan ayırıp, veri satırlarını da doğrudan kopyala yapıştır yapmaya müsait olacak şekilde korumlandırısanız iyi olur.
Birinci görseldeki SARI zeminli kısmı anlaşılabilirlik bakımından ekledim o kısmı yok sayın ama
her veri grubuna görseldeki ÇERÇEVE gibi 6 satırlık alan varmış gibi düşünüp, aktarılacak veri üstteki alanda hangi konuma denk düşüyorsa o satıra yazın.

Neticede 2'nci görseldeki gibi bir veri doğrulama uyulandığında, seçilen liste elemanı üzerinden;
= (KAÇINCI ELEMAN SEÇİLDİ - 1) x 10 + 71 gibi bir matematiksel işlemle kopyalanacak veri alanının başlangıç satır numarası,
= BAŞLANGIÇ SATIRI + 7 şeklinde de veri bitiş satır numarası bulunabilsin.

Akif59 · 10 Ocak 2021

Ömer BARAN' Alıntı:
Öncelikle veri doğrulama liste kaynağı olarak, uygun bir alana liste yazıp, veri doğrulama listesini oradan alın (hatta bu alan için AD TANIMLAMASI olması da işlemi/alınacak veri satırlarının balangıç ve bitiş numaralarını bulmayı kolaylaştırır) .

Veri gruplarının keni aralarındaki birer satırlık boşluk ve veri grupları arasındaki ikişer satırlık boşluk isabetli olmuş.
Pratiklik/düzen bakımından veri grupları arasındaki 2'şer satırlık boşluk, 8'er satırlık (aralardaki boşluklar dahil) veri alanı düzeni iyi.

Ancak son mesajınızdaki "bazı guruplar 6 satırdan bazı guruplar 4 bazı guruplarda 2 satırdan oluşuyor ileride yeni oluşturulacak guruplarda hep böyle olacak"
kısmı sorun olabilir. Veri grupları gerçekte 6 satırlık olmasa bile, alt tarafta herbiri için 6 satırlık alan ayırıp, veri satırlarını da doğrudan kopyala yapıştır yapmaya müsait olacak şekilde korumlandırısanız iyi olur.
Birinci görseldeki SARI zeminli kısmı anlaşılabilirlik bakımından ekledim o kısmı yok sayın ama
her veri grubuna görseldeki ÇERÇEVE gibi 6 satırlık alan varmış gibi düşünüp, aktarılacak veri üstteki alanda hangi konuma denk düşüyorsa o satıra yazın.

Ekli dosyayı görüntüle 7815

Neticede 2'nci görseldeki gibi bir veri doğrulama uyulandığında, seçilen liste elemanı üzerinden;
= (KAÇINCI ELEMAN SEÇİLDİ - 1) x 10 + 71 gibi bir matematiksel işlemle kopyalanacak veri alanının başlangıç satır numarası,
= BAŞLANGIÇ SATIRI + 7 şeklinde de veri bitiş satır numarası bulunabilsin.

Ekli dosyayı görüntüle 7816

Sayın BARAN
İnanın yazdıklarınız kafamı karıştırdı
Ben veri doğrulama istemiyorum evet ilk mesajımda bu cümle geçti sadece veri doğrulamada olduğu gibi tabloya almak istediğim gurubun başlığını seçerek istediğim gurubu tabloda ilgili satırlara bir kod yardımıyla kopyalamak mesala tabloya bir list box ekleyip kopyalanacak gurubun başlığını bu list box tan seçebilir miyim yada Sayın BARAN'ın her zaman dahiyane bir fikiri vardır.

dosyanın alt bölümündeki tüm gurupları aynı yaptım sanırım 4 satırlık ve iki satırlık guruplar kod yazarken sorun olacak bunun için kopyalanacak tüm gurupları 6 satırlık guruplar olarak düzenledim

Ömer BARAN · 10 Ocak 2021

Son belgenize henüz bakmadım.
Özetle söylediğim, aralarda 2'şer satırlık aralıklarla, 8 satırlık hücre grup yapısını tüm seçenekler için oluşturmanızdı.
Diyelim bir veri grubu için normalde 6'sı dolu 8 satırdan oluşan grupta sadece 1 ve 4'üncüsü için veri var;
o durumda aktarılacak verileri ilgili grubun 1 ve 4'ücü satırına yazın.

Böylece 8 satırlık alanı kopyala >> E10 hücresini SEÇ >> özel yapıştır >> BOŞ OLANLARI ATLA seçeneği işaretli >> YAPIŞTIR
işlemi yapıldığında veriler olması gereken yere aktarılmış olur.

Akif59 · 10 Ocak 2021

Ömer BARAN' Alıntı:
Son belgenize henüz bakmadım.
Özetle söylediğim, aralarda 2'şer satırlık aralıklarla, 8 satırlık hücre grup yapısını tüm seçenekler için oluşturmanızdı.
Diyelim bir veri grubu için normalde 6'sı dolu 8 satırdan oluşan grupta sadece 1 ve 4'üncüsü için veri var;
o durumda aktarılacak verileri ilgili grubun 1 ve 4'ücü satırına yazın.

Böylece 8 satırlık alanı kopyala >> E10 hücresini SEÇ >> özel yapıştır >> BOŞ OLANLARI ATLA seçeneği işaretli >> YAPIŞTIR
işlemi yapıldığında veriler olması gereken yere aktarılmış

Merhaba Sayın BARAN
-Zaten şu anda alt bölümdeki gurupları tabloma bahsettiğiniz şekilde kopyalıyorum.
-Dosyada çekilecek veri guruplarının bulundurduğu bölüm yeni burup ihtiyacı oluşana kadar sürekli gizli olacak bahsettiğiniz şekilde işim görülüyor fakat kopyalamak istediğim gurubu görebilmek için sürekli gizli satırları göster istediğim gurubu kopyaladıktan sonrada gizlemek zorunda kalıyorum
Amacım bu gereksiz adımlardan kurtulmak
Tablonun içine yerleştirilecek gurup başlıklarını görebildiğim Bir listeden kopyalamak istediğim veri gurubunun başlığını seçerek manuel yaptığım bu işlemi bir WORKSHEET_CHANGE koduyla yapabilmek

Ömer BARAN · 10 Ocak 2021

Uygun bbir hücreye VERİ DOĞRULAMA >> LİSTE özelliği uygulaması için C7

7 (birleştirerek) adresini önermiş,
bu açılır liste kaynağı olarak da uygun bir alana Plas, Bayan 1...gibi aşağıdaki tabloların sırasına uygun boşluksuz bir liste hazırlamanızı yazmıştım zaten.
Bu işlemi belgenizde son belgenizde görseydim kodlama olayına bakacaktım ancak dosyada,
ne veri doğrulama uygulanmış bir hücre var ne de bu listenin kaynağı olarak kullanılacak boşluksuz bir liste.
.

Akif59 · 10 Ocak 2021

Ömer BARAN' Alıntı:
Uygun bbir hücreye VERİ DOĞRULAMA >> LİSTE özelliği uygulaması için C77 (birleştirerek) adresini önermiş,
bu açılır liste kaynağı olarak da uygun bir alana Plas, Bayan 1...gibi aşağıdaki tabloların sırasına uygun boşluksuz bir liste hazırlamanızı yazmıştım zaten.
Bu işlemi belgenizde son belgenizde görseydim kodlama olayına bakacaktım ancak dosyada,
ne veri doğrulama uygulanmış bir hücre var ne de bu listenin kaynağı olarak kullanılacak boşluksuz bir liste.
.

Sayın BARAN Sağlık olsun
Sanırım bahsettiğiniz veri doğrulama standart bir veri doğrulama değil ve boşluksuz listeden kastınız nedir inanın anlamadım
Anlamadığım bir şeyi de yapmam mümkün değil yine de zaman ayırıp ilgilendiğiniz için çok teşekkür ederim
Hayırlı akşamlar diliyorum.

Ömer BARAN · 10 Ocak 2021

Anlaşıldı.
O halde aşağıdaki kodları SAYFANIN kod bölümüne yapıştırın.
Gerçek belgenizde başka sayfalarında var olacağını düşünerek veri doğrulama listesinin YENİLENME işini
Worksheet_Activate koduna atadım.

Rich (BB code):

Private Sub Worksheet_Activate()
VD_YENILE
End Sub

Sub VD_YENILE()

For sat = 61 To Cells(Rows.Count, 4).End(3).Row
    If Cells(sat, 4) <> "" Then XD = XD & "," & Cells(sat, 4).Text
Next
[C9:D9].Validation.Delete
[C9:D9].Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=Mid(XD, 2, 255)

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C9:D9]) Is Nothing Then Exit Sub
Application.ScreenUpdating = False
ilk = WorksheetFunction.Match(Target.Value, [D:D], 0)
son = ilk + 7
[E10].Resize(2, 19).ClearContents: [E13].Resize(2, 19).ClearContents: [E16].Resize(2, 19).ClearContents
Range("E" & ilk & ":W" & son).Copy
[E10].Resize(8, 19).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=True, Transpose:=False
Target.Activate
Application.ScreenUpdating = True
End Sub

Ömer BARAN · 10 Ocak 2021

Az önce Ankara'da DEPREM

Akif59 · 10 Ocak 2021

Ömer BARAN' Alıntı:

Anlaşıldı.
O halde aşağıdaki kodları SAYFANIN kod bölümüne yapıştırın.
Gerçek belgenizde başka sayfalarında var olacağını düşünerek veri doğrulama listesinin YENİLENME işini
Worksheet_Activate koduna atadım.

C++:

Private Sub Worksheet_Activate()
VD_YENILE
End Sub

Sub VD_YENILE()

For sat = 61 To Cells(Rows.Count, 4).End(3).Row
    If Cells(sat, 4) <> "" Then XD = XD & "," & Cells(sat, 4).Text
Next
[C9:D9].Validation.Delete
[C9:D9].Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=Mid(XD, 2, 255)

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C9:D9]) Is Nothing Then Exit Sub
Application.ScreenUpdating = False
ilk = WorksheetFunction.Match(Target.Value, [D:D], 0)
son = ilk + 7
Range("E" & ilk & ":W" & son).Copy
[E10].Resize(8, 19).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=True, Transpose:=False
Target.Activate
Application.ScreenUpdating = True
End Sub

Sayın BARAN elinize sağlık yine kayıtsız kalmadınız çok teşekkür ederim
lakin alt bölümden istediğim veri gurubunu tabloda ilgili alana koda nasıl kopyalatacağım

Ömer BARAN · 10 Ocak 2021

Makroları geçici olarak devre dışı bırakın.
daha evvel de belirttiğim gibi
-- 9'uncu satırdaki C9 : W9 hücre birleştirmesini iptal edin ve mevcut başlığı E9'a alıp E9 : W9'u tekrar birleştirin.
-- C9 : D9'u birleştirin.
-- Belgeye bir sayfa daha ekleyip, eklenen sayfaya geçin, makroları çalışır hale getirin
-- Satınalma sayfasına geçin

Veri doğrulama listesi birleştirilmiş C9 : D9 da hazır
Açılır listeden seçimi yapın sonuca bakın.

Ömer BARAN · 10 Ocak 2021

Verdiğim kodda bir şeyi atlamışım.
Önceki kod cevabımda yeşil renklendirdiğim satır eklendi.
Sayfayı yenileyerek önceki kod cevaımı kontrol edin.

Akif59 · 10 Ocak 2021

Ömer BARAN' Alıntı:
Verdiğim kodda bir şeyi atlamışım.
Önceki kod cevabımda yeşil renklendirdiğim satır eklendi.
Sayfayı yenileyerek önceki kod cevaımı kontrol edin.

Sayın BARAN Sayfayı yeniledim eklediğiniz yeşil satırı göremedim dosya ekte ben mi eksik bir işlem yaptım bilemiyorum hata veriyor.

Ömer BARAN · 10 Ocak 2021

Önceki cevabın biçimlendirme ayarlarını değiştirmemişim.
Sayfayı yenileyerek tekrar kontrol edebilirsiniz (yeşil)

Akif59 · 11 Ocak 2021

Ömer BARAN' Alıntı:
Önceki cevabın biçimlendirme ayarlarını değiştirmemişim.
Sayfayı yenileyerek tekrar kontrol edebilirsiniz (yeşil)

Merhaba SAYIN BARAN
kodlar çalışıyor istediğim veri gurubunu veri doğrulamadan başlığını seçip tabloma kopyalayabiliyorum

lakin iki sıkıntı var
- dosyada sayfalar arası gezindiğimde satınalma sayfasına geçişte hata alıyorum

- ikinci sorun ise tablodaki tüm formülleri korumak için sayfa koruması kullanıyorum çöp kovası nesnesine bağlanan makro ile tüm sayfayı temizliyorum temizleme kodlarının içinde sayfa korumasını kaldır komutu olmadığı halde sayfa koruması kalkıyor.

Ömer BARAN · 11 Ocak 2021

-- Satınalma sayfası aktif hale geldiğinde VERİ DOĞRULAMA listesinin güncellenmesi kodundaki sorun;
Worksheet_Activate kod blokunda VD_YENILE şeklindeki satırın
... hemen üstüne ActiveSheet.Unprotect "1007"
... hemen altına da ActiveSheet.Protect "1007"
şeklinde iki satır ekleyin.

-- Satınalma_Veri_Sil makrosunun sayfa korumasını kaldırması sorunu:
Satınalma sayfasının kod bölümündeki Worksheet_Change kodunda yer alan
ActiveSheet.Unprotect "1007" satırını If Intersect(Target.... satırının hemen altına taşıyın.

.

Akif59 · 11 Ocak 2021

Akif59' Alıntı:
Merhaba SAYIN BARAN
kodlar çalışıyor istediğim veri gurubunu veri doğrulamadan başlığını seçip tabloma kopyalayabiliyorum

lakin iki sıkıntı var
- dosyada sayfalar arası gezindiğimde satınalma sayfasına geçişte hata alıyorum

- ikinci sorun ise tablodaki tüm formülleri korumak için sayfa koruması kullanıyorum çöp kovası nesnesine bağlanan makro ile tüm sayfayı temizliyorum temizleme kodlarının içinde sayfa korumasını kaldır komutu olmadığı halde sayfa koruması kalkıyor.

Ömer BARAN' Alıntı:
-- Satınalma sayfası aktif hale geldiğinde VERİ DOĞRULAMA listesinin güncellenmesi kodundaki sorun;
Worksheet_Activate kod blokunda VD_YENILE şeklindeki satırın
... hemen üstüne ActiveSheet.Unprotect "1007"
... hemen altına da ActiveSheet.Protect "1007"
şeklinde iki satır ekleyin.

-- Satınalma_Veri_Sil makrosunun sayfa korumasını kaldırması sorunu:
Satınalma sayfasının kod bölümündeki Worksheet_Change kodunda yer alan
ActiveSheet.Unprotect "1007" satırını If Intersect(Target.... satırının hemen altına taşıyın.

.

Sayın @Ömer BARAN
Desteğinizle işi kolaylaştırmak adına doğan ihtiyaç çözüme kavuşmuştur desteğiniz için gönülden teşekkür ederim.
İzninizle çözüldü olarak işaretliyorum

Akif59 · 12 Ocak 2021

Sayın BARAN Merhaba konu çözüldü olarak işaretledim fakat gözden kaçırdığım bir sorun devam ediyor
Başka sayfaya geçtiğimizde satınalma sayfasına geri döngümüzde verdiği hata

ama hatanın nedeni 58 satırdan sonrasının gizli olması biliyorsunuz bu bölüme çekilecek guruplar bir kereye mahsus girilecek o bölümde bir daha çalışma olmayacak o yüzden gizli kalması gerekiyor. hatayı o bölüm gizliyken sayfalar arası gezintide veriyor o bölüm gizli değilse her şey normal çalışıyor.

Çözüldü Bir pencere yardımıyla değişken olan aralığa veri çağırma

VIP

Ekli dosyalar (Dosyaları İndirmek İçin Beğenmeniz Gerekir)

Kurucu

VIP

Kurucu

VIP

Ekli dosyalar (Dosyaları İndirmek İçin Beğenmeniz Gerekir)

Kurucu

VIP

Kurucu

VIP

Kurucu

Kurucu

VIP

Kurucu

Kurucu

VIP

Ekli dosyalar (Dosyaları İndirmek İçin Beğenmeniz Gerekir)

Kurucu

VIP

Ekli dosyalar (Dosyaları İndirmek İçin Beğenmeniz Gerekir)

Kurucu

VIP

VIP

Ekli dosyalar (Dosyaları İndirmek İçin Beğenmeniz Gerekir)

Benzer Konular