Excel Sepet sistemi

[mustafa4238]

Merhabalar bir excel dosyam mevcut 1. Sayfasında ürün bilgileirmin olduğu bir sayfa düşünün ben bir buton oluşturmak istiyorum 1. sayfada seçilen ürünleri o butona basınca 2 . sayfadaki sepete eklesin

 

[HücrelereFısıldayanAdam]

Örnek veri paylaşırsanız, makro ile yapılır. Örnek veri olmazsa, cevaplayan kişi çok uğraşır.

 

[ahmed_ummu]

Bakabilir misiniz. (ChatGPT den alıntıdır.)

 

[Necdet]

exceli açtım, o kadar sayfa oluşturdum. Hiç sepet görmedim, bu sepet nerdekine?

 

[ahmed_ummu]

exceli açtım, o kadar sayfa oluşturdum. Hiç sepet görmedim, bu sepet nerdekine?

Sepet sayfa2'nin kendisi. Mustafa bey sayfa 2 deki sepete eklesin diye yazmış.

 

[mustafa4238]

ben gönderemiyorum altın üyelik bitmiş, bir sepet sistemi düşünün ilk sayfada ürün listesi olacak seçtikce 2 sayfa bir liste oluştuğunu düşünün yanına adetleri yazacağım sonrasında bir buton koymayı düşünüyorum onada tıkladığımda pdf çıktısı alacak listeyi temizleyecek

 

[ahmed_ummu]

Bakabilir misiniz.

 

[Zeki Gürsoy]

ben gönderemiyorum altın üyelik bitmiş,...

Üyeliğiniz bitmemiş görünüyor. Yaşadığınız sorunu Hüseyin Bey' e iletin istersniz...
Varsayımla nokta atışı çözüm mü olur?


.

 

[mustafa4238]

aa dikkat etmedim teşekkür ederim ileteyi hemen kontrol edilsin
birde excel dosyasını açtığımda makro hatası almaktayım

 

[mustafa4238]

bu hatayı alıyorum inceleyemedim sebebi nedir

 

[Asri]

Her hangi bir ürüne ait C sütununda çift tıklama yapıldığında. O ürünü kırmızı olarak işaretler ve TEKLIF sayfasına ekler.
Tekrar çift tıklandığında, kırmızı işareti kaldırır ve teklif sayfasından siler.

'Modül 1 kodları

Public veria, islem As String
Public verib As Integer

Sub teklifekle()
    nerede = varmi(veria)
    If nerede <= 0 And islem = "ekle" Then
        sonsatir = Sheets("TEKLIF").Cells(Sheets("TEKLIF").Rows.Count, "B").End(3).Row + 1
        Sheets("TEKLIF").Cells(sonsatir, "B").Value = veria
        Sheets("TEKLIF").Cells(sonsatir, "D").Value = verib
        Sheets("TEKLIF").Cells(sonsatir, "E").FormulaR1C1 = "=RC[-2]*RC[-1]"
        cerceve ("B" & sonsatir & ":E" & sonsatir)
        sonsatir = sonsatir + 1
        Sheets("TEKLIF").Cells(sonsatir, "D").Value = "TOPLAM"
        Sheets("TEKLIF").Cells(sonsatir, "E").FormulaR1C1 = "=SUM(R[-" & sonsatir - 7 & "]C:R[-1]C)"
    End If
   
    If nerede > 0 And islem = "sil" Then
        Sheets("TEKLIF").Rows(nerede & ":" & nerede).Delete Shift:=xlUp
        cerceve ("B" & nerede - 1 & ":E" & nerede - 1)
        sonsatir = Sheets("TEKLIF").Cells(Sheets("TEKLIF").Rows.Count, "B").End(3).Row + 1
       
    End If
   
End Sub

Function varmi(bilgi) As Long
    Set sayfak = Sheets("TEKLIF").Range("B:B").Find(bilgi, , xlValues, xlWhole)
    If Not sayfak Is Nothing Then
       varmi = sayfak.Row
       Exit Function
    End If
    varmi = 0
End Function

'Ürün listesi kod bölümü

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Intersect(Target, Range("C:C")) Is Nothing Then Exit Sub
    satir = Target.Row
    verib = Cells(satir, "B").Value
    veria = Cells(satir, "A").Value
   
    Cancel = True
    If Target.Interior.Color = vbRed Then
       Target.Interior.Color = xlNone
       islem = "sil"
       Call teklifekle
       Exit Sub
    End If
     
    If verib > 0 Then
       Target.Interior.Color = vbRed
       islem = "ekle"
       Call teklifekle
    End If
    Cancel = True
End Sub

 

[mustafa4238]

emeğinize sağlık bakamadım deneyip hemen geri dönüş yapacağım

 

[mustafa4238]

söyle bir örnek dosyada kodları yazdım ama olmadı galiba nerde hata yapıyorum yardımcı olabilir misiniz?