merhabalar
ekli excel dosyasında aşağıdaki makro kodum mevcut.
kısaca anlatmam gerekirse Tesis adlı sheet içerisinde F sütununda tıkladığım bir hücre olunca o hücrenin bulunduğu satırda bulunan bazı verileri Elektrik adlı sheet altına gönderiyorum.
şimdi burada şunu yapmak istiyorum. Elektrik sheetinde veri gelince D sütununda yazan il verisine göre H sütununa Firma ismi yazdıracağım
Örneğin D sütununda İstanbul- 34 Avr, Edirne, Tekirdağ, Kırklareli verisi aktarılmışsa H sütununda karşılığına XYZ Elektrik yazsın
D sütununda Bursa- 16, Yalova- 77 yazıyorsa, H sütununda karşılığındaki hücreye TTT Elektrik Yazsın
gibi bu şekilde ben diğer illeri aynı mantıkla yerleştiririm.
Ama burada aşağıda yazdığım kod içerisinde bu istediğim ile göre elektrik firma getirme işini yapacak kodu yazabilir miyiz
örnek dosya linki : https://s6.dosya.tc/server18/gt2u4l/Kitap1.xlsm.html
ekli excel dosyasında aşağıdaki makro kodum mevcut.
kısaca anlatmam gerekirse Tesis adlı sheet içerisinde F sütununda tıkladığım bir hücre olunca o hücrenin bulunduğu satırda bulunan bazı verileri Elektrik adlı sheet altına gönderiyorum.
şimdi burada şunu yapmak istiyorum. Elektrik sheetinde veri gelince D sütununda yazan il verisine göre H sütununa Firma ismi yazdıracağım
Örneğin D sütununda İstanbul- 34 Avr, Edirne, Tekirdağ, Kırklareli verisi aktarılmışsa H sütununda karşılığına XYZ Elektrik yazsın
D sütununda Bursa- 16, Yalova- 77 yazıyorsa, H sütununda karşılığındaki hücreye TTT Elektrik Yazsın
gibi bu şekilde ben diğer illeri aynı mantıkla yerleştiririm.
Ama burada aşağıda yazdığım kod içerisinde bu istediğim ile göre elektrik firma getirme işini yapacak kodu yazabilir miyiz
örnek dosya linki : https://s6.dosya.tc/server18/gt2u4l/Kitap1.xlsm.html
Kod:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If tarrget.Column = 6 Then
Application.ScreenUpdating = False
UserForm2.Show 0
Application .Wait(Now + TimeValue("0:00:01"))
Son = Sheet2.Range("A1000").End(3).Row + 1
Range("A" & Target.Row).Copy
Sheet2.Range("A" & Son).PasteSpecial
Range("B" & Target.Row).Copy
Sheet2.Range("B" & Son).PasteSpecial
Range("C" & Target.Row).Copy
Sheet2.Range("C" & Son).PasteSpecial
Range("D" & Target.Row).Copy
Sheet2.Range("D" & Son).PasteSpecial
Range("E" & Target.Row).Copy
Sheet2.Range("E" & Son).PasteSpecial
Range("G" & Target.Row).Copy
Sheet2.Range("F" & Son).PasteSpecial
Sheet2.Range("G" & Son) = Date
Sheet2.Range("I" & Son) = "Firmaya İletildi"
Sheets("Tesis").Select
Application.ScreenUpdating = True
Unloıfad UserForm2
End If
End Sub