- Katılım
- 14 Şubat 2006
- Mesajlar
- 710
- Excel Vers. ve Dili
- 2002-TÜRKÇE
Merhabalar
Ekteki Çalışmada E Sütunundan BN Sütununa kadar 251 satırda dahil olmak üzere mouse ile verileri seçiyorum.Sağ Klik KOPYALA Özel yapıştır Değerleri Seçiyorum.A sayfasından Formülle alınan değerler değere dönüşmüş formüller yok olmuş oluyor.FİYAT Sayfasının Kod bölümüne aşağıdaki kodu kullanarak A sütununda Seçim yapabiliyorum.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
If Target.Row < 6 Then Exit Sub
For Each Hücre In Selection
If Hücre = "" Then
Hücre.Value = "ü"
Else
Hücre.Value = ""
End If
Next Hücre
End Sub
FİYAT Sayfasının A sütununda Seçim Yaptığım TOPLAM Yazan Sütunlardaki FORMÜL'lerin Bir makroyla Tabloda yerlerine geri gelmesini istiyorum.Kısaca E sütunundan BN Sütununa kadar ki verilerden A sütununda işaretlediğim Satırlardaki Formüller tabloda yerlerine geri gelsin.Yada Makro şöylede olabilir E sütunundan BN Sütununa kadarki Formüllü Hücreleri A sütunundaki İşaretli Satırlar dışındaki Hücreleri Değere çevirsin.
Ekteki Çalışmada E Sütunundan BN Sütununa kadar 251 satırda dahil olmak üzere mouse ile verileri seçiyorum.Sağ Klik KOPYALA Özel yapıştır Değerleri Seçiyorum.A sayfasından Formülle alınan değerler değere dönüşmüş formüller yok olmuş oluyor.FİYAT Sayfasının Kod bölümüne aşağıdaki kodu kullanarak A sütununda Seçim yapabiliyorum.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
If Target.Row < 6 Then Exit Sub
For Each Hücre In Selection
If Hücre = "" Then
Hücre.Value = "ü"
Else
Hücre.Value = ""
End If
Next Hücre
End Sub
FİYAT Sayfasının A sütununda Seçim Yaptığım TOPLAM Yazan Sütunlardaki FORMÜL'lerin Bir makroyla Tabloda yerlerine geri gelmesini istiyorum.Kısaca E sütunundan BN Sütununa kadar ki verilerden A sütununda işaretlediğim Satırlardaki Formüller tabloda yerlerine geri gelsin.Yada Makro şöylede olabilir E sütunundan BN Sütununa kadarki Formüllü Hücreleri A sütunundaki İşaretli Satırlar dışındaki Hücreleri Değere çevirsin.
