veri aktarma

[oguzhan1876]

verileri başka sayfaya aktarma

sonuÇ Olarak GÖrÜŞÜldÜ İse ( Ya Buton Olarak Yada GÖrÜŞÜldÜ Yazinca ) O Sayfadan Satir Sİlİnecek BaŞka Sayfaya Aktarilacak.

Yardimlariniz İÇİn TeŞekkÜr Ederİm.

 

[Metin Karaağaç]

örnek dosya ekleyin.

 

[oguzhan1876]

örnek dosya

Örnek Dosya GÖnderdİm.

 

[oguzhan1876]

yardım edecek yok mu???

yardım edecek yok mu???

 

[heromur]

konu hakkında benimde bilgiye ihtiyacım var

 

[Seyit Tiken]

İlgili dosyayı inceleyiniz.

 

[heromur]

sayın Seyit Tiken

anladığım kadarıyla Filtre işlemi uygulamışsınız. Şu halde görüşüldü diyince filtreleme yaparak satırı gizleye biliyor ama mantık şu yönde olacak sanırım Oguzhan bey de bu formülü arıyor---> eğer hücerede görüşüldü yazıyorsa bu satırı kes sayfa2 ye kaydet ---> tabi bu işlemin tüm sayfa da geçerli olması lazım örnegin " I " sutununda herhangi bir hücreye "görüşüldü" yazıldıgında da sonuç vermeli. yani sayfa2 "arşiv" olacak

 

[Ali]

Sn Oğuzhan Sayfa1'de oluşturduğunuz şablonu birebir olarak Sayfa2'dede oluşturun ve Sayfa1'de bir buton oluşturarak aşağıdaki kodları ekleyin.

Sub görüsmeleriaktar()
Dim b
b = Worksheets("Sayfa2").Range("I65536").End(xlUp).Row
For Each aralık In Worksheets("Sayfa1").Range("I5:I65536")
If aralık = "GÖRÜŞÜLDÜ" Then
Worksheets("Sayfa2").Cells(b + 1, 1) = aralık.Offset(0, -8)
Worksheets("Sayfa2").Cells(b + 1, 2) = aralık.Offset(0, -7)
Worksheets("Sayfa2").Cells(b + 1, 5) = aralık.Offset(0, -4)
Worksheets("Sayfa2").Cells(b + 1, 7) = aralık.Offset(0, -2)
Worksheets("Sayfa2").Cells(b + 1, 9) = aralık
Sheets("Sayfa1").Range("A5:J5").ClearContents
End If
Next
MsgBox "Veriler aktarıldı"
End Sub

 

[Seyit Tiken]

Zihin bulanık olduğu zaman eksik veya hatalı anlama olasılığı yüksektir. Gerçi Ali bey yukarıda kodlarıyla yanıt vermiş. Bende alternatif olsun diye örnek dosya gönderiyorum.

 

[heromur]

Ali bey merhabalar

dediklerinizi uyguladım mükemmel çalışıyor fakat sadece "I5" hücresinde. Kod'a göre tüm sütunda calışıyor fakat sadece "I5" te calışıyor

saygılarımla
ömür

 

[Ali]

Ömür Bey siz nasıl olmasını istiyorsunuz Oğuzhan Bey girilen kısımın silinip diğer sayfaya atılmasını istemiş o nedenle onun istediği gibi yazdım.

 

[Ali]

Oğuzhan Bey'in eklediği örneğe göre Seyit Beyin eklediği dosyada kullanışlı olmuş.

 

[heromur]

HOCAM
Örneğe bi göz atabilirmisiniz

ömür aydeniz

 

[Ali]

Aşağıdaki kodları deneyin.

Sub aktar()
Dim b
b = 3
For Each secim In Worksheets("Sayfa1").Range("G4:G65536")
If secim = "YES" Then
b = b + 1
Worksheets("Sayfa2").Cells(b, 1) = secim.Offset(0, -6)
Worksheets("Sayfa2").Cells(b, 2) = secim.Offset(0, -5)
Worksheets("Sayfa2").Cells(b, 3) = secim.Offset(0, -4)
Worksheets("Sayfa2").Cells(b, 4) = secim.Offset(0, -3)
Worksheets("Sayfa2").Cells(b, 5) = secim.Offset(0, -2)
Worksheets("Sayfa2").Cells(b, 6) = secim.Offset(0, -1)
Worksheets("Sayfa2").Cells(b, 7) = secim
End If
Next
t = Range("G65536").End(xlUp).Row
For i = t To 1 Step -1
If Cells(i, 7) = "YES" Then Cells(i, 7).EntireRow.Delete
Next
End Sub

 

[heromur]

Ali hocam

elinize saglık şimdi oldu

saygılarımla
ömür