- Katılım
- 23 Eylül 2004
- Mesajlar
- 91
Selamlar.
İlişikteki dosyada detay ve analiz isimli sayfalar bulunmaktadır. Analiz sayfasının A sütunundaki stok kodlarını detay sayfasının B sütununda aratıp 1.bulunduğu stok kodunun karşısındaki değeri analiz sayfasının C sutununki örnekte görüldüğü gibi başa iş emri numarası gelecek şekilde yazdırmak istiyorum. Fakat 1.bulduğu değerleri analiz sayfasının C sutununa yazdıktan sonra makroyu çalıştırdığınızda da göreceğiniz gibi D sutunundan başlayarak bütun sütunlara son bulduğu değerleri yazıyor. İşemri numarasınıda yazdıramadım.
Yardımcı olabilirseniz sevinirim.
Sub karsilastir()
detay_son = Sheets("analiz").Cells(1, 1).Value
analiz_son = Sheets("analiz").Cells(2, 1).Value
For k = 3 To 20
For i = 4 To analiz_son
ara = Sheets("analiz").Cells(i, 1).Value
For j = 2 To detay_son
sonuc = Sheets("detay").Cells(j, 2).Value
If ara = sonuc Then
Sheets("analiz").Activate
If Sheets("analiz").Cells(i, k).Value = "" Then
Sheets("analiz").Cells(i, k).Value = Sheets("detay").Cells(j, 3).Value
Else: Sheets("analiz").Cells(i, k + 1).Value = Sheets("detay").Cells(j, 3).Value
Sheets("analiz").Cells(i, 1).Select
End If
End If
Next
Next
Next
End Sub
İlişikteki dosyada detay ve analiz isimli sayfalar bulunmaktadır. Analiz sayfasının A sütunundaki stok kodlarını detay sayfasının B sütununda aratıp 1.bulunduğu stok kodunun karşısındaki değeri analiz sayfasının C sutununki örnekte görüldüğü gibi başa iş emri numarası gelecek şekilde yazdırmak istiyorum. Fakat 1.bulduğu değerleri analiz sayfasının C sutununa yazdıktan sonra makroyu çalıştırdığınızda da göreceğiniz gibi D sutunundan başlayarak bütun sütunlara son bulduğu değerleri yazıyor. İşemri numarasınıda yazdıramadım.
Yardımcı olabilirseniz sevinirim.
Sub karsilastir()
detay_son = Sheets("analiz").Cells(1, 1).Value
analiz_son = Sheets("analiz").Cells(2, 1).Value
For k = 3 To 20
For i = 4 To analiz_son
ara = Sheets("analiz").Cells(i, 1).Value
For j = 2 To detay_son
sonuc = Sheets("detay").Cells(j, 2).Value
If ara = sonuc Then
Sheets("analiz").Activate
If Sheets("analiz").Cells(i, k).Value = "" Then
Sheets("analiz").Cells(i, k).Value = Sheets("detay").Cells(j, 3).Value
Else: Sheets("analiz").Cells(i, k + 1).Value = Sheets("detay").Cells(j, 3).Value
Sheets("analiz").Cells(i, 1).Select
End If
End If
Next
Next
Next
End Sub