kriterlere göre veri kopyalama

[deon4812]

fk8095k.jpg

ff

hizliresim.com

merhaba
üsteki link görselinden detaylı olarak anlatmaya çalıştım.

bir tabloda istenilen verileri başka bir tabloda alt alta gelecek şekilde sıralama

yardımlarınız için şimdiden teşekkür ederim

 

[Mdemir63]

Selamlar
Formumuza hoş geldiniz.


İnceleyiniz


Not: Excel Versiyon ve Dili Lütfen değiştiriniz

Bilgi - Profillerde yazan "Ofis Sürümü ve Dili" bilgisi hakkında

Merhaba Değerli Forum Üyeleri, Belki dikkatinizi çekmiştir. Son zamanlarda birçok üyemize açtıkları başlıklarda cevap vermeden önce "Kullandığınız ofis sürümü ve dili nedir?" şeklinde mesaj yazıyorum. Bu alanın kullanım amacı sizlere verilecek cevaplar için önem arz etmektedir. Bu sebeple bu...

www.excel.web.tr

 

[deon4812]

yardımınız için çok teşekkür ederim. ihtiyacıma uygun fakat ben tam kullabilmem için kodu düzenleyecek bilgiye sahip değilim. size excel dosyasını göndersem ona uyarlayabilir misiniz.

 

[HücrelereFısıldayanAdam]

Hocam Muzaffer bey.. tarif ettiğinizi zaten yapmış, dosyaya makro butonu bile koymuş.

1- indirilen dosyaya sağ klik yapın, engellemeyi kaldırı işaretleyin. Makro aktif olsun yani
2-Koda göre sayfanızın ismi Sayfa2 olmalı
3-kodu kendinize uyarlamak için, görünüm, makrolar, makroları görüntüle, düzenleye tıklayın
buradaki If ws.Cells(i, "A").Value = 1 Then satırındaki, 1 yerine istediğiniz koşul neyse onunla değiştirip, kaydedin.
Hepsi bu kadar.

Option Explicit

Sub aktar()
Dim i, y As Integer, lr As Integer, ws As Worksheet
Set ws = ThisWorkbook.Sheets("Sayfa2")
lr = ws.Range("A1048576").End(xlUp).Row
ws.Range("F2:H" & lr).ClearContents
Application.ScreenUpdating = False
Application.DisplayAlerts = False
y = 2
      For i = 2 To lr
            If ws.Cells(i, "A").Value = 1 Then
                  ws.Range("A" & i & ": C" & i).Copy ws.Range("F" & y)
                  y = y + 1
            End If
      Next i

Application.ScreenUpdating = True
Application.DisplayAlerts = True

MsgBox "İşlem Tamam", vbInformation, Application.UserName
End Sub

 

[deon4812]

evet çok teşekkür ederim. aynı satırlara başka veri girildiğinde yandaki veriler güncelleniyor. birde bu çok basit bir anlatım gerçek tablo daha karmaşık. link üzerinden rica etsem tabloyu bakabilir misiniz. excelli açınca direk anlaşılıyor. yardımlarınız için çok teşekkür ederim. yarına yetiştirmem gerekiyor. olabildiğince erken gönderme imkanınız varsa çok iyi olur. anlayışınız için teşekkürler..

https://dosya.co/0w8npmk6zw6/134-gönderilecek.xlsx.html

 

[Mdemir63]

Selamlar

Doğru anladım mı bilemiyorum.

İnceleyiniz

 

[deon4812]

çok güzel çalışıyor elinize sağlık çok teşekkür ederim.

 

[Mdemir63]

çok güzel çalışıyor elinize sağlık çok teşekkür ederim.

Rica ederim.
İyi çalışmalar

 

[Mdemir63]

Selamlar