Transfer Çalışması

[hknexcel]

Merhabalar,

Ekli dosyada yapmak istedğim,kimileri için basit ama benim için zor bir durum söz konusu,bu tablo için destek verebilirmisiniz ? Teşekkürler.

 

[baydeniro]

Merhaba. hknexcel dosyan açılmıyor.

 

[hknexcel]

Dosyayı tekrar ekledim tşk.

Merhabalar,

Ekli dosyada yapmak istedğim,kimileri için basit ama benim için zor bir durum söz konusu,bu tablo için destek verebilirmisiniz ? Teşekkürler.

 

[baydeniro]

Sayın hknexcel. Formül + Filtre ile ben yardımcı olabilirim. Bunlar dışında makro ile çözüm ediyorsan tabii ki üstadlarımızın düzeyinde yardım gerekir.

 

[hknexcel]

Sayın hknexcel. Formül + Filtre ile ben yardımcı olabilirim. Bunlar dışında makro ile çözüm ediyorsan tabii ki üstadlarımızın düzeyinde yardım gerekir.

Sayın Serdarokan,

Her türlü yardıma açığım.

 

[baydeniro]

Sayın hknexcel, amatörce bir çalışma yaptım. Umarım işini görür.

 

[hknexcel]

Sayın Serdarokan,

Teşekkürler, sayfa3 e transfer edecek yer ve adetini ve transfer alacak yeri yazdırabilirmiyiz ?

 

[baydeniro]

L1 ve N1 hücrelerine istenilen sayfa adını yazın, veriler o sayfalara aktarılacaktır.

 

[Murat OSMA]

Alternatif:

Sub Emre()
    Dim i As Integer
         For i = 2 To Sayfa1.Range("A65536").End(3).Row
            If Sayfa1.Cells(i, "G") < 0 Then
                Sayfa1.Cells(i, 1).Resize(, 8).Copy Sayfa3.Range("A65536").End(3)(2, 1)
                    ElseIf Sayfa1.Cells(i, "G") > 0 Then
                Sayfa1.Cells(i, 1).Resize(, 8).Copy Sayfa2.Range("A65536").End(3)(2, 1)
            End If
        Next i
    i = Empty
End Sub

 

[baydeniro]

Çok teşekkürler sayın Murat Osma.

 

[fıratugur_]

merhaba,transfer yapacak ve alacak mağaza sorunu çözülebilirmi