Satırdaki bilgiler sekmeye tam geçmiyor.

[FERcort]

***************

dosya : www.fermax.somee.com/cari.xls

son sorumda,

ürün koduna göre para veya kat sayı belirleyebilirmiyim.

yani şunu yapamıyorum.

mesela kişi 75/100 ürün kodu yazdı. Fiyatı 1 tanesi 1000 lira mesela satış adeti 10000 girince para yı hesaplayabilir mi?

 

[Levent Menteşoğlu]

Kodu aşağıdaki ile değiştirin.

[vb:1:99e2f6e569]Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error GoTo 10
Application.ScreenUpdating = False
If Selection.Cells.Count > 1 Then Exit Sub
If ActiveSheet.Name <> "CARİ" Then Exit Sub
If Intersect(Target, [d:d]) Is Nothing Or Target = "" Then Exit Sub
sat = Target.Row
Sheets(Target.Value).Select
say = WorksheetFunction.CountA([d2:d65536]) + 3
For a = 2 To 6
Cells(say, a) = Sheets("cari").Cells(sat, a).Value
Next
Sheets("cari").Select
Exit Sub
10 Sheets("CARİ").Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = Target
[d4:g65536].ClearContents
say = WorksheetFunction.CountA([d2:d65536]) + 3
For a = 2 To 6
Cells(say, a) = Sheets("cari").Cells(sat, a).Value
Next
Sheets("cari").Select
End Sub


Not:Ã?nce diğer verileri doldurup firmayı en son yazarak yeni sayfa oluşturun. Bunun çözümü çok kolay değildir, kodlarda ciddi değişiklikler yapılmasını gerektirecektir.
[/vb:1:99e2f6e569]

 

[FERcort]

...

:keyif: sağ olasın ama o kodlar işime yaramıyor.

Yukarıda gösterdiğim :dua: özellikler bana lazım copy/paste yapıncada aynı şey oluyor. Maalesef . :arkadas:

 

[Levent Menteşoğlu]

Bu kodları denemediğiniz anlamına geliyor, yukarıdaki sorunuza istinaden hazırlamıştım. Ã?rnek dosyanızdaki kodu bununla değiştirip denedinizmi?

 

[FERcort]

hata halen devam ediyor.

cari sekmesinde iken Firma Ünvaı yazınca makro otomatik sekme açıyor.

yanlız firmaları yazmaya başlayınca kendine has sekmeye notlar tam geçmiyor.

Yukarıdaki kopyaları copy / paste yaptığımda oluşan sorunlar.

Levent bey isterseniz dosyayı ekte gönderiyorum . Rica edersem bir kontrol ediniz.

 

[FERcort]

hata halen devam ediyor.

acele cevap bekliyorum arkadaşlar ...

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.
[vb:1:571c2ee218]Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
Application.ScreenUpdating = False
If Selection.Cells.Count > 1 Then Exit Sub
If ActiveSheet.Name <> "CARİ" Then Exit Sub
If Target = "" Then Exit Sub
If Target.Column = 4 Then
sat = Target.Row
For ad = 1 To Sheets.Count
If Target = Sheets(ad).Name Then
Sheets("" & Target).Select
say = WorksheetFunction.CountA([d2:d65536]) + 3
For a = 2 To 6
Cells(say, a) = Sheets("cari").Cells(sat, a).Value
Next a
Sheets("cari").Select
Range("z" & sat) = say
Exit Sub
End If
Next ad
Sheets("cari").Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = Target
[b4:g65536].ClearContents
[z:z].ClearContents
say = WorksheetFunction.CountA([d2:d65536]) + 3
For a = 2 To 6
Cells(say, a) = Sheets("cari").Cells(sat, a).Value
Next
Sheets("cari").Select
Range("z" & sat) = say
Exit Sub
End If
sat1 = Cells(Target.Row, "z")
If sat1 = 0 Then Exit Sub
Sheets("" & Cells(Target.Row, "d")).Cells(sat1, Target.Column) = Target.Value
Sheets("" & Cells(Target.Row, "d")).[z:z].ClearContents
Sheets("cari").Select
End Sub[/vb:1:571c2ee218]