sayfalar arası veri transferi (yardım)

[Sdndr]

Merhabalar
Sayfalar arasında veri transferi yapmakta sorun yaşıyorum. Örnegi ek olarak koydum. Yapmaya çalıştığım kesim sayfasına bir ürün girdiğimde, malzemelistesi sayfasından girdiğim ürünü bulup ürünün bileşenlerini kopyalayıp, kesim sayfasındaki ilgili yere yapıştırması. Sürekli hata alıyorum Yardımcı olursanız sevinirim.

 

[suleyman242]

Merhabalar
Sayfalar arasında veri transferi yapmakta sorun yaşıyorum. Örnegi ek olarak koydum. Yapmaya çalıştığım kesim sayfasına bir ürün girdiğimde, malzemelistesi sayfasından girdiğim ürünü bulup ürünün bileşenlerini kopyalayıp, kesim sayfasındaki ilgili yere yapıştırması. Sürekli hata alıyorum Yardımcı olursanız sevinirim.

Kod içerisindeki ("MALZEMELISTESI") ile excel çalışma sayfanın MALZEMELISTESİ isimleri aynı değil kırmızı ile işaretlediklerimden birini değiştir; ayrıca Büyük küçük harfleri kullanırken özellikle Iveİ harfleri küçük olduğu zaman sürekli "i" oluyor ayrıca yine kod içerisinde kullandığın sutun ile sütun lar farklı ,

                    Range(Cells(satir, sutun), Cells(satir, sutun + 14)).Select

yerine

 Cells(satir, sutun + 14).Select

ile bir sonraki satırlarda satır1 ve sutun1 larda 1 ler eksik

 

[Sdndr]

dediklerinizi yaptım ancak satır satır çalıştırdıgımda Range("T" & i).Select kısmında bir sorun yaşanıyor burdan sonrasında hata veriyor. aynı amacı gerçekleştirmek için başka ne uygulayabılırım bir fikriniz varmı?

 

[Sdndr]

tamamdır şu şekilde sorunu çözdüm.

Private Sub Worksheet_Activate()

 Application.ScreenUpdating = False
Dim deneme, deneme1 As Variant
Dim i, j As Integer
SonDoluSatir = Sheets("KESİM").Range("L1048575").End(xlUp).Row
sonsatir = Sheets("MALZEMELISTESI").Range("H1048575").End(xlUp).Row
    For i = 6 To SonDoluSatir
        deneme = Worksheets("KESİM").Range("L" & i).Value
            For j = 6 To sonsatir
                deneme1 = Worksheets("MALZEMELISTESI").Range("H" & j).Value
                    If deneme = deneme1 Then
                        Worksheets("KESİM").Range("N" & i).Value = Worksheets("MALZEMELISTESI").Range("T" & j).Value
                        Worksheets("KESİM").Range("O" & i).Value = Worksheets("MALZEMELISTESI").Range("U" & j).Value
                        Worksheets("KESİM").Range("P" & i).Value = Worksheets("MALZEMELISTESI").Range("V" & j).Value
                        Worksheets("KESİM").Range("Q" & i).Value = Worksheets("MALZEMELISTESI").Range("W" & j).Value
                        Worksheets("KESİM").Range("R" & i).Value = Worksheets("MALZEMELISTESI").Range("X" & j).Value
                        Worksheets("KESİM").Range("S" & i).Value = Worksheets("MALZEMELISTESI").Range("Y" & j).Value
                        Worksheets("KESİM").Range("T" & i).Value = Worksheets("MALZEMELISTESI").Range("Z" & j).Value
                        Worksheets("KESİM").Range("U" & i).Value = Worksheets("MALZEMELISTESI").Range("AA" & j).Value
                        Worksheets("KESİM").Range("V" & i).Value = Worksheets("MALZEMELISTESI").Range("AB" & j).Value
                        Worksheets("KESİM").Range("W" & i).Value = Worksheets("MALZEMELISTESI").Range("AC" & j).Value
                        Worksheets("KESİM").Range("X" & i).Value = Worksheets("MALZEMELISTESI").Range("AD" & j).Value
                        Worksheets("KESİM").Range("Y" & i).Value = Worksheets("MALZEMELISTESI").Range("AE" & j).Value
                        Worksheets("KESİM").Range("Z" & i).Value = Worksheets("MALZEMELISTESI").Range("AF" & j).Value
                        Worksheets("KESİM").Range("AA" & i).Value = Worksheets("MALZEMELISTESI").Range("AG" & j).Value
                        Worksheets("KESİM").Range("AB" & i).Value = Worksheets("MALZEMELISTESI").Range("AH" & j).Value
                    End If
            Next j
    Next i

End Sub