Çözüldü Sayfadan Veri Çekip Düşey Ara ile Veri Getirme

Sayın RBozkurt arama işlemi neye göre yapılacak
belirtmemişsiniz. Ben de KDN sekmesine göre yaptım.
Bunu da 2 seçenekli yaptım.
1) Inputbox la aranan KDN numarasını girmeniz yeterli.
2) Kaynak2 sayfasında B sütununa almak istediğiniz KDN numarasını
yazdığınızda bu kodları çalıştırmanız yeterli.
Hangi seçeneği kullanmak isterseniz ona göre birini kesme işareti
ile iptal edin.
Kodları Kaynak2 sayfasında bir buton açıp dener misiniz ?
HTML:

excelcan ustam Kaynak2 sayfasına gelen veriler doğru.

Tıklama ile tek tek değilde NetcadRapor sayfasında mesela 100 tane satır var.
Butona tıklayınca hepsini tek seferde Kaynak2 satırına getirmesi lazım.

RBozkurt' Alıntı:

işlemin sonunda V sütununda örneğin KAPALI yazan hücre varsa o satırı silme işlemi de eklenebilir mi?

Genişletmek için tıkla...

hangi sayfadaki V sütunu?
KAMULAŞTIRMA AMACI ile ilgili bir sütun Göremedim

halily' Alıntı:

hangi sayfadaki V sütunu?

Genişletmek için tıkla...

Kaynak2 sayfası halily ustam

RBozkurt' Alıntı:

Kaynak2 sayfası

Genişletmek için tıkla...

kaynak2 sayfası zaten boş olmayacak mı? verileri alırken kaynak2ye alınmaz silmeye gerek var mı

KAMULAŞTIRMA AMACI ile ilgili bir sütun Göremedim

NetcadRapor sayfasında ADSOYAD hanesi boş değilse
tüm verileri alır. Kaynak2 sayfasında Hisse sekmesini metin yapınız.
/ işaretinden dolayı başınız ağrır.
"İşlemin sonunda V sütununda örneğin KAPALI yazan hücre varsa o satırı silme işlemi de eklenebilir mi?"
Burda kastınız MernisListe sayfasından aldığımız verilere istinaden olmalı.
Durum sekmesinde KAPALI yazıyorsa o satırı ya aldığımızda sileceğiz yada
KAPALI yazıyorsa o satırı almayacağız. Ben birinci şıkkı tercih ettim.
Dosyanız ekte.

excelcan' Alıntı:

NetcadRapor sayfasında ADSOYAD hanesi boş değilse
tüm verileri alır. Kaynak2 sayfasında Hisse sekmesini metin yapınız.
/ işaretinden dolayı başınız ağrır.
"İşlemin sonunda V sütununda örneğin KAPALI yazan hücre varsa o satırı silme işlemi de eklenebilir mi?"
Burda kastınız MernisListe sayfasından aldığımız verilere istinaden olmalı.
Durum sekmesinde KAPALI yazıyorsa o satırı ya aldığımızda sileceğiz yada
KAPALI yazıyorsa o satırı almayacağız. Ben birinci şıkkı tercih ettim.
Dosyanız ekte.

Genişletmek için tıkla...

Merhaba
Kodu aktif edince mevcut projede Anasayfa (Sayfa1) burdaki satırlar siliniyor.
Kaynak 2 sayfasında V sütunundaki Kapalı kayıtları silme kısmı çalışmadı.

HTML:

Veriler B3 yerine B2'den nasıl başlatılabilir.
Liste B3'den başlıyor

Mesaj çok dağıldı
Akşam gözden kaçmış tekrar tekrar mesaj oluyor kusura bakmayın

Kodu aktif edince mevcut projede Anasayfa (Sayfa1) burdaki satırlar siliniyor.
Verileri aktardıktan sonra Kaynak2 sayfasında V sütunundaki Kapalı kayıtları silme kısmı çalışmadı.

HTML:
***

Kamulaştırma Amacı kısmınıda atlamışım.

Eğer;
M>0 ve N>0 ise O="Kamulaştırma ve İrtifak"
M=0 ve N>0 ise O="İrtifak"
M>0 ve N=0 ise O="Kamulaştırma" olarak eklenebilir mi?


Hazırladığım dosyada mevcutta veri hazırlanacak 3 sayfa var.
1. Sayfanın işlemi bitti
Çalışma mantığı TC bulup mernisteki verileri altına ekliyordu.
O Kodları revizyon yapabilsek çok daha iyi olabilir.

Tekrar bir örnek dosya ekliyorum. İçinde ön çalışma diye makro var. düğmeye atadım.
Makro çalışınca
Ön çalışma hazırlanıyor,
NetcadRapor sayfasındaki TC'yi MernisListe'de arıyor.
1> Altında veri var ise verilerle birlikte;
2> TC Yok yada altında veri yok ise sadece o bilgileri getiriyor.

Bu kodda revizyon olabilir mi?


HTML:

1) "Veriler B3 yerine B2'den nasıl başlatılabilir."
Bu kısmı
If say > 0 Then
.Range("B3:V1048576").ClearContents
.Cells(3, "B").Resize(say, 18).Value = Application.Transpose(arr)

şu şekilde değiştirin.
If say > 0 Then
.Range("B2:V1048576").ClearContents
.Cells(2, "B").Resize(say, 18).Value = Application.Transpose(arr)

2) "Kodu aktif edince mevcut projede Anasayfa (Sayfa1) burdaki satırlar siliniyor.
Kaynak 2 sayfasında V sütunundaki Kapalı kayıtları silme kısmı çalışmadı."

Benim bundan anladığım siz uyarlamayı yapamamışsınız.
Bu kodlarda silme kodu yalnızca Kaynak2 sayfasında var.
O zaman sizin orjinal dosyanızda böyle bir sayfa yok.
O yüzden uyarlama yapamadınız. Kodlarda Kaynak2 yazan
yerlere Anasayfa yazacaksınız o zaman. Böyle anlaşılıyor.
Göndermiş olduğunuz dosyada Anasayfa diye böyle bir sayfa yoktu.

V sütunundaki Kapalı kayıtları silme kısmının çalışmamasının sebebi sizin
"Ek olarak;
İşlemin sonunda V sütununda örneğin KAPALI yazan hücre varsa o satırı silme işlemi de eklenebilir mi?
Bu satırı farklı 2 dosyada kullanacağım kodları 'Pasif olabilir mi?"
talebiniz. Oraya not da yazdım. Kesme işaretlerini kaldırmanız yeterliydi.

Sonuç olarak aktarma işlemini 2.satıra aldım. Kaynak2 yazan yerleri
Anasayfa olarak değiştirdim. Satır silme işlemini aktif hale getirdim.
Göndermiş olduğum Örnek_1 dosyasında Kaynak2 sayfasının ismini Anasayfa olarak değiştirin.
Burdaki butona atanan kodları silin ve kod tagındaki kodları yapıştırın.
Önce bu soruyu çözüme kavuşturacağız.
Diğer sorunuzu ayrı bir başlık altında sorun.
HTML:

Silme kodu, makronun butonunu koyduğum sayfada veri siliyor. Anlamadım gitti.
Onu iptal ettim. Geri kalanına uyarlama yapabilirim. Teşekkür ederim excelcan

Sayın RBozkurt aşağıdaki satırın başına bir kesme işareti koyun.
Bir tane silme kodu var. Sorun sizin göndermiş olduğunuz dosyada
sayfa isimlerinin doğru olmaması. Dolayısıyla sayfa isimlerini karıştırıp
uyarlama yapamıyorsunuz. Soru da böyle ikircimli kalınca o kadar çaba boşa çıkıyor.
O silme kodu gerekli bir kod. Bugün yüz veri alırsınız. Yarın elli veri. Silmezsek karışır gider.
Ne olduğunu anlamanız içi bir süre silmeden kullanın bakalım.
.Range("B2:V1048576").ClearContents bu satırın başına ' işareti koyun.
Kolay gelsin.

excelcan ustam
Şimdi aşağıdaki dosyada kod içerisindeki "Anasayfa"yı "Kaynak2" olarak değiştirdim.
Silinecek kelimeyi'de Ölüm" olarak değiştirdim.
Kaynak2'de V Sütununda Ölüm yazan satırı silecek normal şartlarda.
Ama butonu koyduğum sayfadan satır siliyor.

excelcan' Alıntı:

Bir de böyle deneyin.
Sadece bu kodları.

Sheets("Kaynak2").Activate
Sheets("Kaynak2").Range("W1").Select

For k = Sheets("Kaynak2").Cells(Rows.Count, "H").End(3).Row To 2 Step -1
If Sheets("Kaynak2").Cells(k, 22) = "Ölüm" Then
Rows(Sheets("Kaynak2").Cells(k, 22).Row).EntireRow.Delete
End If
Next

Genişletmek için tıkla...

Problemi başta ifade edemedim
Teşekkürler bu sefer ilgili satırlar silindi elinize sağlık