• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Sütundaki verileri tablodaki bölümlere yerleştirirken sorun

  • Konbuyu başlatan Konbuyu başlatan desk
  • Başlangıç tarihi Başlangıç tarihi
D

desk

Katılım
17 Ekim 2005
Mesajlar
288
Excel Vers. ve Dili
excel 2010 türkçe
Sub aktar_59()
Dim k As Range, sat As Long
Sheets("SATINALMA FORMU").Select
Range("B11").Value = ""
Range("H1,B11,B26,H26,C26,D26,E26,F26,G26,A26").ClearContents
sat = Sheets("İPLİK").Cells(65536, "A").End(xlUp).Row
If Range("J4").Value = "" Then Exit Sub
If sat < 2 Then Exit Sub
Set k = Sheets("İPLİK").Range("A2:A" & sat).Find(Range("J4").Value, , xlValues, xlWhole)
If Not k Is Nothing Then
Range("L21").Value = k.Offset(0, 1).Value
Range("L22").Value = k.Offset(0, 2).Value
Range("L23").Value = k.Offset(0, 3).Value
Range("H1").Value = k.Offset(0, 4).Value
Range("B11").Value = k.Offset(0, 5).Value
Range("B26").Value = k.Offset(0, 6).Value
Range("H26").Value = k.Offset(0, 7).Value
Range("C26").Value = k.Offset(0, 8).Value
Range("L29").Value = k.Offset(0, 9).Value
Range("L30").Value = k.Offset(0, 10).Value
Range("D26").Value = k.Offset(0, 11).Value
Range("E26").Value = k.Offset(0, 12).Value
Range("L33").Value = k.Offset(0, 13).Value
Range("F26").Value = k.Offset(0, 14).Value
Range("L35").Value = k.Offset(0, 15).Value
Range("G26").Value = k.Offset(0, 16).Value
Range("L37").Value = k.Offset(0, 17).Value
Range("L38").Value = k.Offset(0, 18).Value
Range("L39").Value = k.Offset(0, 19).Value
Range("L40").Value = k.Offset(0, 20).Value
Range("L41").Value = k.Offset(0, 21).Value
Range("L42").Value = k.Offset(0, 22).Value
Range("L43").Value = k.Offset(0, 23).Value
Range("A26").Value = k.Offset(0, 24).Value
Range("L45").Value = k.Offset(0, 25).Value

End If
End Sub


Şeklinde kodumla verileri aktardığım tablomdaki (SATINALMA FORMU) j4 hücresine yazdığım sorgulama nosunu iplik sheet indeki sütunlardan sorgulatıp karşısındaki verileri çekiyorum sorunum şu çektiğim sütundan aynı veriye eşdeğer bir sütun daha çıkarsa ondaki verileri nasıl aktarabilirim yazdırabilirim.?? j4 e 215 noyu çek dediğimde 215 den iki veya üç tane satır varsa bunları nasıl çekeceğim.?? Formuma yerleştireceğim.
 
örnek dosyamı ekledim. iki sheet arasında aktarım yaparken aynı numaralı sorgunun satırlarını formumda alt alta nasıl aktaracağım.?
 

Ekli dosyalar

şu kodu deneyin....(sizin verdiğiniz örnekte firma adı baz alınmadığından bende firma adını kriterler arasına almadım..sadece yazdığınız koda göre sayfa 2 ye veriler aktarılacaktır.)


Sub yeni()
Application.ScreenUpdating = False
If Sheets("SATINALMA FORMU").Cells(4, "j") <> "" Then
Sheets("SATINALMA FORMU").Range("a25:h2500").ClearContents
For x = 2 To Sheets("İPLİK").[a10000].End(3).Row
If Sheets("İPLİK").Cells(x, "a") = Sheets("SATINALMA FORMU").Cells(4, "j") Then
a = [a10000].End(3).Row + 1
Sheets("SATINALMA FORMU").Cells(a, "a") = Sheets("İPLİK").Range("a" & x)
Sheets("SATINALMA FORMU").Cells(a, "c") = Sheets("İPLİK").Range("j" & x)
Sheets("SATINALMA FORMU").Cells(a, "d") = Sheets("İPLİK").Range("m" & x)
Sheets("SATINALMA FORMU").Cells(a, "e") = Sheets("İPLİK").Range("n" & x)
Sheets("SATINALMA FORMU").Cells(a, "f") = Sheets("İPLİK").Range("p" & x)
End If
Next x
End If
Application.ScreenUpdating = True
End Sub
 
veri aktarırken sorun yaşamıyorum sorgunun tek satır olması açısından ama sorgunun iki satırı var ise iki satırıda forma aktarmalıyım. sorunum bu!
 
sayın desk size göndediğim kod dediğiniz işlemi yapıyor..dosya üzerinde denediğinizden emin misiniz ??
 
Örnek dosyama baktınızmı ? tek satır sorguda sorun yaşamıyorum örnek dosyada görebilirsiniz sorunu sorgum iki satır yakaladığında iki satırı nasıl aktaracağım sorun bu?
 
sayın desk dosyanız ekte..sadece yaptığım gönderdiğim makroyu düğmenize atamak...bir deneyin eğer istediğiniz bu değilse ben sabahtan beri sizi yanlış anlıyorum..ama eğer buysa merak ediyorum siz benim gönderdiğim kodu nasıl denediniz ??
 

Ekli dosyalar

Firma adı tarih gibi değişkenleride forma yerleştirmek istiyorum. Tarih ve Firma adı her zaman aynı olacak farklı olduğunda zaten numara değişecek.. Ben tarih ve firma adı nı atamayınca direk çalışmıyor gözüyle baktım Alt kısım isteğim gibi olmuş...
 
Teşekkürler çok işime yaradı. Son olarak farklı bir soru veriyi aktarırken çoklu olan için soruyorum alt alta satırlar var diyelim a25 gibi standart bir yerden değilde en alttaki baş satırdan ekle gibi bir mantık oluşturabilirmiyim sayfada diyelim 2000 satır var 2001 den başlayıp eklesin 3000 satır var 3001 den başlasın hep en alttaki boş satırdan başlasın. ve alta eklesin sırayla her sorgulamada.
 
sayfanın kod kısmını açıp benim size gönderdiğim kod üzerinde

Sheets("SATINALMA FORMU").Range("a25:h2500").ClearContents

kısmını siliniz..yeterli olacaktır..
 
Bilgi için çok teşekkür ederim üstad.
 
/deneme/veri.xls adında bir dosyadan çekmeye kalkarsam nasıl alabilirim verileri çalıştırdığım dosyaya
 
bu konuda bilgi sahibi değilim ne yazıkki..
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst