srikanth sare
New Member
- Joined
- May 1, 2020
- Messages
- 30
- Office Version
- 2013
- Platform
- Windows
- MacOS
- Mobile
- Web
Help me in simplifying code and
Sheet9.Range("EG5:EG" & Range("EG9999").End(xlUp).Row).Copy Sheet9.Cells(Rows.Count, "FO").End(xlUp).Offset(1, 0)
here two columns has to be copied i.e., EF & EG to column FN & FO
[/CODE]
Sheet9.Range("EG5:EG" & Range("EG9999").End(xlUp).Row).Copy Sheet9.Cells(Rows.Count, "FO").End(xlUp).Offset(1, 0)
here two columns has to be copied i.e., EF & EG to column FN & FO
VBA Code:
If Sheet9.Range("EF2").Value = "YES" Then
Sheet9.Range("EG5:EG" & Range("EG9999").End(xlUp).Row).Copy Sheet9.Cells(Rows.Count, "FO").End(xlUp).Offset(1, 0)
End If
If Sheet9.Range("EH2").Value = "YES" Then
Sheet9.Range("EI5:EI" & Range("EI9999").End(xlUp).Row).Copy Sheet9.Cells(Rows.Count, "FO").End(xlUp).Offset(1, 0)
End If
If Sheet9.Range("EJ2").Value = "YES" Then
Sheet9.Range("EK5:EK" & Range("EK9999").End(xlUp).Row).Copy Sheet9.Cells(Rows.Count, "FO").End(xlUp).Offset(1, 0)
End If
If Sheet9.Range("EL2").Value = "YES" Then
Sheet9.Range("EM5:EM" & Range("EM9999").End(xlUp).Row).Copy Sheet9.Cells(Rows.Count, "FO").End(xlUp).Offset(1, 0)
End If
If Sheet9.Range("EN2").Value = "YES" Then
Sheet9.Range("EO5:EO" & Range("EO9999").End(xlUp).Row).Copy Sheet9.Cells(Rows.Count, "FO").End(xlUp).Offset(1, 0)
End If
If Sheet9.Range("EP2").Value = "YES" Then
Sheet9.Range("EQ5:EQ" & Range("EQ9999").End(xlUp).Row).Copy Sheet9.Cells(Rows.Count, "FO").End(xlUp).Offset(1, 0)
End If
If Sheet9.Range("ER2").Value = "YES" Then
Sheet9.Range("ES5:ES" & Range("ES9999").End(xlUp).Row).Copy Sheet9.Cells(Rows.Count, "FO").End(xlUp).Offset(1, 0)
End If
If Sheet9.Range("ET2").Value = "YES" Then
Sheet9.Range("EU5:EU" & Range("EU9999").End(xlUp).Row).Copy Sheet9.Cells(Rows.Count, "FO").End(xlUp).Offset(1, 0)
End If
If Sheet9.Range("EV2").Value = "YES" Then
Sheet9.Range("EW5:EW" & Range("EW9999").End(xlUp).Row).Copy Sheet9.Cells(Rows.Count, "FO").End(xlUp).Offset(1, 0)
End If
If Sheet9.Range("EX2").Value = "YES" Then
Sheet9.Range("EY5:EY" & Range("EY9999").End(xlUp).Row).Copy Sheet9.Cells(Rows.Count, "FO").End(xlUp).Offset(1, 0)
End If
If Sheet9.Range("EZ2").Value = "YES" Then
Sheet9.Range("FA5:FA" & Range("FA9999").End(xlUp).Row).Copy Sheet9.Cells(Rows.Count, "FO").End(xlUp).Offset(1, 0)
End If
If Sheet9.Range("FB2").Value = "YES" Then
Sheet9.Range("FC5:FC" & Range("FC9999").End(xlUp).Row).Copy Sheet9.Cells(Rows.Count, "FO").End(xlUp).Offset(1, 0)
End If
If Sheet9.Range("FD2").Value = "YES" Then
Sheet9.Range("FE5:FE" & Range("FE9999").End(xlUp).Row).Copy Sheet9.Cells(Rows.Count, "FO").End(xlUp).Offset(1, 0)
End If
If Sheet9.Range("FF2").Value = "YES" Then
Sheet9.Range("FG5:FG" & Range("FG9999").End(xlUp).Row).Copy Sheet9.Cells(Rows.Count, "FO").End(xlUp).Offset(1, 0)
End If
If Sheet9.Range("FH2").Value = "YES" Then
Sheet9.Range("FI5:FI" & Range("FI9999").End(xlUp).Row).Copy Sheet9.Cells(Rows.Count, "FO").End(xlUp).Offset(1, 0)
End If
If Sheet9.Range("FJ2").Value = "YES" Then
Sheet9.Range("FK5:FK" & Range("FK9999").End(xlUp).Row).Copy Sheet9.Cells(Rows.Count, "FO").End(xlUp).Offset(1, 0)
End If[CODE=vba]